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FOREWORD 


The State Criminal Justice Telecommunications (STACOM) Project 
consists of two major study tasks. The first entails a study of criminal 
justice telecommunication system user requirements and system traffic 
requirements through the year 1985. The second investigates the least 
cost network alternatives to meet these specified traffic requirements. 

Major documentation of the STACOM Project is organized in four 
volumes as follows: 

State Criminal Justice Telecommunications 
(STACOM 1 Final Report - Volume I: 

Executive Summary 

State Criminal Justice Telecommunications 
(STACOM) Final Report - Volume II: 

Requirements Analysis and Design of Ohio 
Criminal Justice Telecommunications Network 

State Criminal Justice Telecommunications 
(STACOM) Final Report - Volume III: 

Requirements Analysis and Design of Texas 
Criminal Justice Telecommunications Network 


State Criminal Justice Telecommunications 
(STACOM) Final Report - Volume IV: 

Network Design Software Users’ Guide 

The above material is also organized in an additional four 
volumes which provide a slightly different reader orientation as follows: 


Title Document No. 


State Criminal Justice Telecommunications 
(STACOM) Functional Requirements - 
State of Ohio 

5030-43* 

State Criminal Justice Telecommunications 
(STACOM) Functional Requirements - 
State of Texas 

5030-61* 

State Criminal Justice Telecommunications 
(STACOM) User Requirements Analysis 

5030-80* 

State Criminal Justice Telecommunications 
(STACOM) Network Design and Performance 
Analysis Techniques 

5030-99* 


77-53 
Vol. I 


77-53 
Vol. II 


77-53 
Vol. Ill 


77-53 
Vol. IV 


jet Propulsion Laboratory internal document. 
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This document, No. 77-53, Volume IV, entitled, "Network Design 
Software Users' Guide," describes techniques that are implemented in the 
STACOM program. It then illustrates the application of this program by 
providing a run example with detailed input/output listing. 

It presents the results of one phase of research carried out 
jointly by the Jet Propulsion Laboratory, California Institute of 
Technology, and the States of Texas and Ohio. The project is sponsored by 
the Law Enforcement Assistance Administration, Department of Justice, 
through the National Aeronautics and Space Administration (Contract NAS7- 
100 ). 
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ABSTRACT 


A users' guide is provided in this volume for the network design 
software developed during the State Criminal Justice Telecommunications 
(STACOM) project sponsored by the Law Enforcement Assistance Administra- 
tion (LEAA). 

The network design program is written in FORTRAN V and implemented 
on a UNIVAC 1108 computer under the EXEC-8 operating system which enables 
the user to construct least-cost network topologies for criminal justice 
digital telecommunications networks. A complete description of program 
features, inputs, processing logic, and outputs is presented. Also 
included is a sample run and a program listing. 
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SECTION 1 
INTRODUCTION 


1 . 1 PURPOSE AND SCOPE 

The STACOM ( STA te Criminal Justice COMm unication) network 
topology program is a software tool which has been developed and utilized 
during the STACOM project. This Software Users' Guide provides: 

(1) A detailed description of the program, i.e., what it 
does and how it does it. 

(2) Details of the STACOM storage structure and of its 

« program structure so that a user can easily comprehend 

its capabilities and limitations. 

(3) Details of the options available, a functional block 
diagram, and a program listing with comment statements 
so that a user can expand/ improve the program 
capabilities by either changing parameter values or 
modifying the program itself. 

(4) Details of a sample run stream used as a reference run 
for correct operation, and an input/output example, so 
that a user can easily operate the program as a tool 
for network design. 

The STACOM program was developed and implemented with the 
FORTRAN-V programming language, which is one of several high-level 
languages available in the UNIVAC 1108 computer systems at the Jet 
Propulsion Laboratory. EXEC-8 is the operating system used in these 
systems. With this in mind, usage of this program in a similar UNIVAC 
system may require some degree of conversion effort. For a facility with 
computers other than the UNIVAC type, a considerable effort would be 
required in converting this program into one compatible with the operating 
system of that facility. 

The balance of this document consists essentially of two 
parts. The first deals with the functional design portion of the STACOM 
topology program (Section 2); the other is concerned with the operational 
aspect (Section 3). 


1 . 2 SUMMARY 

1.2.1 The STACOM Program 

The development of the STACOM ( STA te Criminal Justice 
COMm unication) network topology program was performed to support the pri- 
mary STACOM objective of providing the tools needed for designing and eval 
uating intrastate communication networks. The STACOM project goals are to 
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(1) Develop and document techniques for intrastate traffic 
measurement, analysis of measured data, and prediotlon 
of traffic growth. 

(2) Develop and document techniques for intrastate network 
design, performance analysis, modeling, and simulation. 

(3) Illustrate applications of network design and analysis 
techniques to typical existing network configurations 
and new or improved configurations. 

(4) Develop and illustrate a methodology for establishing 
priorities for cost-effective expenditures to improve 
capabilities in deficient areas. 

A task involving the development of a software package for the 
synthesis and analysis of alternate network topologies was undertaken. 

In the following subsections, we describe a typical law 
enforcement communication network, what the STACOM program does, how it 
does it, and a general operating procedure for using the program. 


1*2.2 State Criminal Justice Communication Network and its Optimization 

A State law enforcement communication network is defined as a 
network which contains a set of system terminations connected by a set of 
links. Each system termination consists of one or more physical terminals 
or computers located at the same city, called a terminal city. The main 
purpose of the communication network is to provide to the terminal users 
rapid access to and response from the data base system, and rapid response 
time for intra-agency communication. 

Various ways of connecting a given set of terminals may be 
used, depending on different requirements. Because the operating costs 
for a given communication network depend very muoh on its layout , some 
cost reduction is possible through an initial investment in a 
configuration analysis. 

The activity of designing a network with the lowest costs 
which satisfy loading requirements, called network optimization, uses 
various existing techniques which provide means for such purposes. 


1.2.3 Functions Performed by the STACOM Program 

The STACOM program is a software tool which has been developed 
to design optimal networks that will achieve lower operating costs. It 
utilizes a modified Esau-Hilliams technique to search for those direct 
links between system terminations and a regional switching center (RSC) 
which may be eliminated in order to reduce operating costs without 
impairing system performance. The RSC provides either a switching 
capability, a data base center, or both. 
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Inputs for the STACOM program contain data such as traffic, 
terminal locations, and functional requirements. The network may be 
divided into any number of desired regions in any given program run. Each 
region has a Regional Switching Center (RSC) which serves terminals in its 
region. RSCs are, finally, interconnected to form the complete network. 
Upon receipt of a complete set of input data, the STACOM program first 
performs the formation of regions and, if needed, the selection of RSCs. 

The program then builds a regional network in which only system 
terminations in the region are connected. The program subsequently 
optimizes the regional network for each region requested by the user. 

The formation of regions is performed by the program on the 
basis of attempting to arrive at near-equal amounts of traffic for all 
regions. After finding the farthest una 3 signed system termination from 
the system centroid (a geographical center), the program starts formation 
of the first region by selecting unassigned system terminations close to 
this system termination until the total amount of traffic for that region 
is greater than a certain percentage (90jt in this implementation) of the 
average regional traffic. The average regional traffic is simply the 
total network traffic divided by the number of desired regions. The same 
process is repeated by the program in forming the rest of the regions. 

The selection of an RSC is based on the minimal traffic- 
distance product sum. In the selection process, each system termination 
is chosen as a trial RSC, and the sum of traffic-distance products xs then 
calculated. The location of the system termination which provides the 
minimal sum is then selected as the RSC, although the location of the RSC 
for a given region may also be specified by the use; . The optimization 
process consists of two basic steps, i.e., searching for lines whose 
elimination yields the best cost saving, and updating the network. The 
two steps are repeated until no further saving is possible. 

Before performing network optimization, the STACOM program 
constructs an initial star network in which each system termination is 
directly connected to the regional center. It then starts the 
optimization process. At the termination of this process, a multidrop 
network is generally developed. In a multidrop network, some lines have 
more than one system termination; these are called multidrop lines. 

When needed, the STACOM program will continue to form an 
optimized interregional network, which consists of inter-connections 
between regional centers. 

The process for interregional network optimization involves 
the same two steps: searching and updating. However, the searching step 

is primarily to find the alternate route, for diverting traffic between two 
regional switching centers, that provides the best saving. 

Based on the data provided, a successful run of the STACOM 
program generates a regular printer output and, if requested, a CalComp 
plot. The printer output contains data such as initial regional network 
and optimized network costs, assignments of system terminations, etc. The 
CalComp plot shows the geographical connections of the optimized network 
detailing multidrop line connections to all of the system terminations. 
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1.2.4 Operational Procedure 

1.2. 4.1 Initialization and Setup . When the STACOM program is executed 
from an 80-eharacter/line demand terminal, an alternate file, 100, to be 
used as a printer output file, must be defined. Otherwise, all printout 
data will be directed to the terminal which will produce interleaving 
output. The file is defined by the statement <?ASG,UP 100. 

In addition to the redirection of output file destination, the 
user must direct the punch card file to a proper unit for a CalComp 
plotter. As an example, the statement (*SYM,P PUNCH$, ,G9PLTF will direct 
the punch card images to a CalComp plotter designated with G9PLTF. 


1.2. 4. 2 Starting a Run . 

1.2. 4. 2.1 Batch Mod e. Following is a list of control statements 
required when running the STACOM program as a batch run: 

§RUN run-ID, account-no., project-ID, SUP-time, pages/cards 
§ASG,UP 100 

§SYM, P PUNCH$ , , plotter-ID 
@XQT file. STACOM 
(INPUT DATA) 

8BRKPT 100 
§FREE 100 

§SYM 100, ,pr inter-ID 
§FIN 

The RUN card gives the following information: designated run 

ID, user's account number, project-ID, expeoted SUP-time usage (sum of CPU 
time, 1/0 time, and control/execute request time), limited number of 
printer pages, and number of cards which may be generated from the run. 
Plotter -ID gives the logical ID of the CalComp pen plotter ind file is the 
file which contains the absolute element of the STACOM program. Pr inter- 
ID gives the logical ID of the line printer. INPUT DATA as shown is the 
input data required. When all of these data items are in order and ready, 
the deck can be submitted to the operator for processing. 


1.2. 4. 2. 2 Demand Mode . If program execution is to be performed via a 
demand terminal, the user can converse interactively with the program. 

The user may also run the program as a batch job by havin all input data 
prepared and added after the @XQT statement. 

Under the conversational mode , the user acts as a respondent 
who answers the requests for data made by the program. This mode of 
operation provides the user with an understanding of how the program is 
progressing. A user can very often terminate a run before a complete set 
of input data is given if he has some knowledge of the progress being 
made. This capability can prevent the user from an unnecessary waste of 
time. For example, if a run encounters a system which has more oversized 
distance data than allowed, a message from the program will be printed out 
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on the terminal. This will force the user to modify the program in order 
to handle the large number of oversized distance data. 


1.2. 4. 3 Normal Termination . When a STACOM program run proceeds 
successfully and terminates normally, the normal file unit 6 will contain 
messages for each successful regional network optimization. After a 
normal termination, the user can direct the output file 100 to a printer 
device, and the CalComp plot will be generated by the designated Cal Comp 
pen plotter. 


1.2.5 Aborting and Recovering a Run 

When a run encounters trouble resulting from incorrect input 
data, the user can u:ie the normal aborting procedure to terminate its 
execution if it is a demand job. A statement of after interrupting 
the line communication by pressing the BREAK key, will terminate a program 
execution at any time. On the other hand, the EXEC-8 may abort a run when 
certain serious violations occur during its execution. 

If a program run has been interrupted because of a system 
outage, no recovery of the run is possible. 
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SECTION 2 

THE STACOM PROGRAM 


2 . 1 INTRODUCTION 

Two types of analysis are involved in designing a communi- 
cation network. The first is concerned with arriving at acceptable 
line loadings; the second involves the achievement of optimal line 
configurations. The STACOM program was developed to accomplish both 
of these types of analysis. 

Before describing the STACOM program itself, a State criminal 
justice information system with its communication network is examined 
as a typical existing communication network. The goal of the STACOM 
program is then discussed. 


2.1.1 State Criminal Justice Information System 

An information system is usually developed to provide a system- 
atic exchange of information between a group of organizations. The infor- 
mation system is used to accept (as inputs), store (in files or a data base), 
and display (as outputs) strings of symbols that are grouped in various 
ways. While an information system may exist without a digital computer, we 
will consider only systems which contain digital computers as integral parts. 

Information systems can be classified in various ways for 
various purposes. If classification is by the type of service rendered, 
the type of information system whioh serves a criminal justice community 
within a State can be considered as an information storage and retrieval 
system. This type of information system is the subject of our interest. 

For example, the State of Ohio has an information system with a data 
base located at Columbus. The data base contains records on wanted per- 
sons, stolen vehicles, and stolen license plates. Also included in the 
same computer are files of the Bureau of Motor Vehicles (BMV) which 
contain records on all lioensed drivers and motor vehicles in that State. 


2.1.2 State Digital Communication Network 

For a given State information system, the storage and retrieval 
of data to/ from the data base can be accomplished in various ways for 
different user requirements. In general, the users of a State criminal 
justice information system are geographically distant from the central data 
base computer. Because a fast turn-around time is a necessity for this 
particular user community, direct in-line access to the central data base 
by each criminal justice agency constitutes the most important of the user's 
requirements. In addition, it is required to move message data quickly 
from one agency to another at a different location. These goals require 
the establishment of a data communication network. Because the computer 
deals only with digital data, only digital data communication networks 
are considered here. 
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A digital communication network consists mainly of a set of 
nodes connected by a set of links. The nodes may be computers, terminals, 
or other types of communication control units that are placed in various 
locations, and the links are the communication channels providing data 
paths between the nodes. These channels are usually private or switched 
lines that are leased from a common carrier. A simple example of a 
network is given in Figure 2-1 , where the links between modems are 
communication lines leased from a common carrier. The communication 
control unit in city E is used to multiplex or concentrate several low- 
speed terminals onto a high-speed line. The line which connects cities C, 
D, and others is called a multidrop line, and this line connects several 
terminals to the data base computer. 


2.1.3 A STACOM Communication Network 

For the purposes of the STACOM study, a communication network 
was defined as a set of system terminations connected by a set of links. 
Each system termination consists of one or more physical terminals or 
computers located at the same city. 



^DB^J DATE BASE COMPUTER 
(cc) COMMUNICATION CONTROL UNIT 
Q MODEM 
a TERMINAL 


Figure 2-1. Example of a Digital Communication Network 


2-2 



77-53, Volo IV 


2.1.4 Communication Network Configurations 

The communication network for an information system with a 
central data base computer is one of three basic network configurations: 
the star, the multidrop, or distributed connection. These three types are 
shown in Figure 2-2. 

As shown in Figure 2-2, the star network consists of four 
direct connections, one for each system termination. Each connection is 
called a central link. The multidrop network has one line with two system 
terminations and two central links. In the distributed network shown, 
more than one path exists between each individual system termination and 
the central data base. 


2.1.5 Network Optimization 

Given a communication network, the operating costs for the 
various types of lines or common carrier facilities required are governed 
by tariffs based upon location, circuit length, and type of line. 
Experience suggests that the operating cost of a network can often be 
substantially reduced by an initial investment in a configuration 
analysis. In other words, some efforts in network optimization generally 
provide cost-saving. 





distributed network 


Figure 2-2. Basic Communication Network Configurations 
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There are two ways of eonstructing a communication network 
in a geometrical sense. One can divide a communication system into 
several regions, construct an optimal regional communication network 
for each region, and then build an inter- regional network connecting 
all of the regional centers to the central data base center. Each 
regional center is responsible for switching messages issued from and 
returned to each system termination in the region. Alternatively, 
one can consider the whole system as a region which is entirely made 
up of system terminations, and perform the optimization for that region. 


2.1.6 The STACOM Program and its Purposes 

One of the objectives in the STACOM study is to design optimal 
and effective communication networks which will satisfy predicted future 
traffio loads for both selected model states, Ohio and Texas. In order to 
achieve this objective, the STACOM program was developed and utilized for 
the analysis and synthesis of alternative network topologies. It is also 
the project's goal that the final product be a portable software package 
which can be used as a network design tool by any user. 

In network design, two major problems are the selection of a 
cost-effective line configuration for given traffic , and the design of an 
optimal network to arrive at lower operating costs. 

The goal of the STACOM program is to provide a user with a 
systematic method for solving both problems. In other words, the main 
purpose of the STACOM program Is to provide the network designer with a 
tool which he can use for line selection and for obtaining optimal line 
connections . 


2.1.7 Functions Performed by the STACOM Program 

The STACOM program can be used to generate an optimal network 
configuration for a communication system if traffic to/from each system 
termination is provided. In addition to performing the normal 
input/output functions, the program will: 

(1) Define regions, based on equal traffic distribution. 

(2) Select regional centers, based on minimal traffic- 
distance product sum. 

(3) Form a regional star network with the selected regional 
center as the regional switching center (RSC). 

(1») Perform regional network optimization. 

(5) Form an optimized inter-regional network if required. 

In performing initial network formation and subsequent 
optimization, line selection is done by the STACOM program to satisfy the 
following conditions: 
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(1) The line utilization factor does not exceed a specific 
number 

(2) The average terminal-response time is less than a 
preselected unit of time 

(3) The number of terminals on a multidrop line is less than 
a preselected number. 

In the process of regional network optimization, the STACOM 
program utilizes a modified Esau-Williams method (Reference 1). Starting 
with a star network, in which each system termination has a central link 
to the regional center, the optimization process searches for a central 
link, the elimination of which will provide the best savings in cost; the 
program then provides an alternate route for the traffic that would have 
been carried by the link eliminated . The process is repeated until no 
further cost saving is possible. The result of this process is a multi- 
drop network. 

When a communication system has more than two regions, the 
STACOM program can also be used to generate an optimal inter-regional 
network. It first constructs an initial inter-regional network in which 
every Regional Switching Center (RSC) has a direct link to every other 
RSC, it then performs line elimination by diverting traffic through other 
routes . 


Figure 2-3 gives examples of regional star networks and an 
initial inter-regional network; Figure 2-4 gives examples of optimized 
regional networks and inter-regional network obtained from Figure 2-3. 


2.2 MAIN FEATURES 


As described in Paragraph 2.1, the STACOM program ha3 been 


developed for the purpose of performing analysis and synthesis of 
alternative network topologies. The following is a list of features which 
characterize the STACOM program: 


(1) 

The Esau-Williams routine has been modified, tested 
and utilized for determining near optimal network 
topology. 


(2) 

A tree type structure is used as the storage structure 
in the program. 


(3) 

The program execution has been made flexible; for 
example, constraint on response time for a multidrop 
line is now an input parameter. 


(4) 

A response-time algorithm has been implemented in the 
program . 


(5) 

A CalComp plotting routine has been included for drawing 
resulting multidropped networks. 
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In the rest of this subsection, these main features are 
discussed in detail. 


2.2.1 Structure 

2.2. 1 - 1 Storage . Since a multidrop network can be viewed as a tree 
composed of sub- trees, it was determined that a tree- type data structure 
would be appropriate and convenient for representing a multidrop network. 



* O REGIONAL SWITCHING CENTER 
O SYSTEM TERMINATION 

LINE CONNECTION BETWEEN SYSTEM TERMINATIONS 

LINE CONNECTION BETWEEN RSCs 

REGIONAL BOUNDARY LINE 


Figure 2-3. Example of Initial Regional Networks and 
an Initial Interregional Network 
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A tree-type storage struoture is therefore needed in the 
program. This tree-type storage structure is implemented by defining 
a set of storage cells. 

Each system termination (data) is represented internally by a 
storge cell in the program. Each cell consists of five fields and each 
field occupies one word (i.e., a 36-bit word for UNIVAC 1108 computers). 



O REGIONAL SWITCHING CENTER 
O SYSTEM TERMINATION 

LINE CONNECTION BETWEEN SYSTEM TERMINATIONS 

LINE CONNECTION BETWEEN RSCs 

REGIONAL BOUNDARY LINE 


Figure 2-4. Example of Optimized Regional Networks and 
an Optimized Interregional Network 
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Defining that system termination X is a successor of X 
and Y a predecessor of X if X branches out from Y, and X is the root 
of a tree if it has no predecessor before it, then the basic storage 
cell for system termination A oan be described as follows: 


A 


IA 


f 1 

*2 

f 3 

f 4. 

f*5 


Let ctf^) s content of i-th field in a storage cell 1^, where IA is an 
internal index for a system termination A (data), then 

c(f-|) = the number of system terminations under A 

o(f 2 > = a pointer which points to the first successor of A 

c(f 3 ) = a pointer which points to the next system 

termination whose predecessor is the same as A's 

c(ftt) = a pointer which points back to the previous system 
termination whose predecessor is the same as A's 

cCfg) = a pointer which points to A's predecessor 


When there is a 'zero' in a field, this indicates there is no 
one relating to A under that specific relationship. Given a tree as 
Figure 2-5, A is root of the tree; it has M successors, i.e., B, C, D, and 
E. Figure 2-6 is the internal representation of that relationship among 
indices 1^, Ig, 1^, ig, and Ig which are internal cardinal numbers for 
system terminations A, B, C, D, and E. 

The first field of storage cell 1^ indicates that there are 
four system terminations under I*; the pointer to Ig says that Ig is its 
first successor. Since 1^ is the root of the tree, the other three fields 
are left with zeros. 


A 



Figure 2-5. A Tree with A as its Root 
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Figure 2-6. Internal Representation of the Tree 
in Figure 2-5 


In the case of Ig, Ip is the next successor of I A and the 
previous successor of I A is I B . Its third field has a pointer pointing to 
Ij), and its fourth field a pointer pointing to Ig. 


2. 2. 1.2 Program . The STACQM program consists of twelve functionally 
independent routines. Figure 2-7 shows the basic structure of the 
program. The functional interrelationship is indicated by arrows. 

An arrow from routine A to routine B indicates that routine B 
will be called upon by routine A during its execution. All of these 
routines communicate to each other through the COMMON block in addition to 
the normal subroutine arguments . 

Major functions of eleven of these routines are given below. 
RSPNSE Routine is described in the following paragraph. 

( 1 ) MAIN Routine 

This is the master routine of the STACOM program. In 
its execution, it reads in all the data required from an 
input device (card reader or demand terminal) and 
performs calculations of distances between any twc 
system terminations. It assigns system terminations to 
regions, and, if necessary, selects the regional 
switching center by finding the system termination in 
the region with the minimal traffic-distance product 
sum. It calls upon routine RGNNET to build a star 
network and then performs network optimization, if 
required, for each of these regions. 
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Figure 2-7. STACOM Program Struoture 


It also performs the construction of an inter-regional 
network and its optimization by calling subroutine 
IRNOP . 

In addition to these processings, the MAIN routine also 
prints out distance matrix, traffic matrix, and lists 
of system terminations by region. 

(2) RGNNET Routine 

This routine is called upon only by the MAIN routine. 

Its main functions are the formation and optimization of 
regional star networks. During the formation of a 
regional star network, each system termination is linked 
directly to the designated or selected Regional 
Switching Center (RSC) by assigning the RSC index to the 
last field of each associated storage cell. Tree 
relationships are built among system terminations by 
assigning pointers to the third and fourth fields of 
eaoh storage cell. The resulting star network is then 
printed on the printer. 
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The optimization process utilizes the Esau-Villiams 
algorithm (Reference 1) with some modifications. It 
consists of two steps: searching for a central link (a 
direct link from a system termination to RSC) with best 
cost savings under constraints (such as response-time 
requirement), and subsequent network updating. This 
network optimization process is executed only upon 
request. When no further cost improvement is possible, 
this routine prints a resulting network with data such 
as number of system terminations and the response time, 
traffic, cost, etc., associated with each multidrop 
line. Routine PLOTPT is then called upon to plot 
the resulting network layout. 

(3) IRNOP Routine 

This routine is called upon to act by routine MAIN. It 
forms an interregional network and then performs its 
optimization. The interregional lines are assumed to be 
full-duplex lines. During the optimization process, no 
line between two RSCs can be eliminated if traffic 
between them cannot be handled through only one 
intermediate RSC. Also, each RSC requires at least two 
lines to other RSCs. 

(H) LINNUM Routine 

This routine provides an estimated line configuration 
required to satisfy a given traffic load and is mainly 
called upon by routine RGNNET. During its execution, 
utilization of selected lines are calculated against the 
given traffic load by calling RHOFUN so that effective 
line utilization is less than the pre-determined number. 

(5) RHOFUN Routine 

This routine calculates the line effective utilization 
for a given traffic and line configuration. 

(6) ICOSTJ Routine 

Given the line configuration and indices for any two 
system terminations, this routine < alculates the 
installation costs and annual recurring costs for 
the line and other chargeable items required. In 
calculating line costs, it calls upon routine DIST 
for distance data between two given system termina- 
tions. Resulting cost data are arranged by chargeable 
item type. 

(7) DIST Routine 

This routine retrieves distance data between any two 
system terminations by calling routine PACK. When the 
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distance is greater than 510 miles, it retrieves 
distance data by calling routine RECOVR. 

(8) PACK Routine 

This routine stores or retrieves distance data between 
any two system terminations. It is called upon by 
routine MAIN for distance data depositing, and called 
upon by routine DIST for its retrieval. For the purpose 
of saving storage, distance data has been compressed, 
and each 36-bit word has been divided into four sub- 
words of 9 bits. Therefore, any distance datum with 
value equal to or greater than 511 is stored in another 
specified area; its retrieval calls upon routine RECOVR. 

(9) RECOVR Routine 

During distance data retrieval in the execution of the 
DIST routine, if the return value from routine PACK is 
511, this routine will be called upon to provide the 
actual distance data, which is equal to or greater than 
511. 

(10) LINK Routine 

Since the distance between any two system terminations 
I and J is independent of how I and J are referred to, 
the routine LINK provides a mechanism for preserving 
such an independency by mapping I and J into an absolute 
index . 

(11) PLOTPT Routine 

This routine provides instructions for plotting a given 
point on a CalComp plotter. Location of a point is 
calculated by its associated Vertical-Horizontal (V-H) 
coordinates (defined under Paragraph 2.4.2). 


2.2.2 Response Time Algorithm — RSPNSE Routine 

There is a limit on the number of terminals which can be 
linked together by a multidrop line due to constraints on reliability and 
response time. However, it would be an oversimplification to just use a 
particular number as the main constraint in determining how many terminals 
a multidrop line can have. In reality, the response time of a given 
multidrop line depends on the amount of traffic, the number of terminals 
on the line, and very heavily, on the number of transactions to be 
processed in the data base computer system. 

In the STACOM program, a response time algorithm is imple- 
mented in such a way that during the network optimization process it is 
used to accept or reject the addition of a given terminal to a multidrop 
line. This response time routine calculates the average response time 
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on the given multidrop line, given the number of terminals and amount 
of peak traffic on the line. This average response time accounts for 
the following types of delays; the wait-for-line time and line service 
time for the inquiry message from a terminal to the central switcher 
(i.e., a switcher which either contains data bases or communicates 
directly with the data base computer), the computer turnaround time 
at the switcher, and the wait-for line time and line service time for 
the returned message to the terminal. When there is an RSC between 
a terminal and the central switcher, the turnaround time at the RSC 
and the line service time between the RSC and the central switcher 
are counted as part of the average response time . Before its inclusion 
in the STACOM program, the fidelity of this algorithm was evaluated 
by simulation and found to be acceptable. 


2.2.3 Flexibility 

At the outset of the STACOM project it was anticipated that 
the STACOM program would be used for states with varying traffic 
requirements; it was decided that the resulting program should be as 
flexible and general as possible. With this in mind, the STACOM program 
has been implemented with the following features which make it flexible 
and thereby enhance its capabilities: 

(1) Rate Structures, Line Types, and Chargeable Items 

Because a State can have more than one rate structure 
(tariff) applicable at any one time, the STACOM program 
has been designed to accommodate this. 

Under a specific rate structure, any combination of line 
types with their names, line capacities, and basic cost 
figures can be prescribed to the program. In addition 
to the line cost, any number of chargeable items 
associated with each line type can be prescribed to the 
program. For example, any combination of cost items 
such as service termina.s, drops, modem and others can 
be used. Furthermore, under the Multischedule Private 
Line (MPL) tariffs given by AT&T for interstate 
communication lines, the monthly line charge between any 
two terminals is now a function of both the inter-city 
distance and the traffic densities of both terminal 
cities. The STACOM program has been implemented in 
such a way that it can take line-cost figures based 
on MPL tariffs or other tariffs. 

(2) Region Formation, Switcher Selection, and Network 
Optimization . 

Given a set of system terminations dividing them into 
regions can be performed in either of the following 
ways: the user can pre-assign some or all of the 
terminations into preselected regions, alternatively, 
the user can let the program perform the region 
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formation by simply providing the system centroid. 
Following the formation process, the STACOM program will 
start selecting regional switching centers for regions 
without a preassigned switching center. The process of 
regional network formation and its optimization will 
then follow. 

(3) Number of Terminals per Multidrop Line. 

It may be desirable to set a limit on the number of 
terminals on a multidrop line. In its implementation, 
the STACOM program takes this number from the user's 
input data as a constraint during its optimization 
process . 

(4) Average Terminal Response Time. 

Besides the limit on the number of terminals allowed on 
a multidrop line, a good network design also requires a 
constraint on the average terminal response time on a 
multidrop line. The STACOM program allows a user to 
specify the limit on a run basis. 


2.2.4 Programming Language 

The STACOM program is implemented with the FORTRAN V language 
of UNIVAC systems, compiled with the EXEC-8 FORTRAN processor, and 
mapped by its MAP processor. 

Detailed features of FORTRAN V programming language are 
described in Reference 2. 


2.2.5 Operating System Requirements 

Because the EXEC-8 operating system of the UNIVAC 1108 
computer was used in the development of the STACOM program, the current 
edition of the STACOM program can only be executed under the EXEC-8 
system. Furthermore, since a CalComp routine is linked with the program, 
the plotter must be part of the operating system. If such a hardware unit 
is not included in the system, the STACOM program must be updated to 
reflect this environment. 

In addition, the current STACOM program was designed with the 
feature that all the desired output be put into a FORTRAN file designated 
as 100. Before executing this program, a file with the name 100 must be 
assigned. Otherwise, regular WRITE unit 6 will be the destination output 
file, e.g., the print output will go the user’s demand terminal when it is 
run as a demand job. 

As an example, the following is a complete list of EXEC-8 
control statements which need to be prepared or typed in after the run 
card for properly executing the STACOM program. 
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§ASG , UP 100 
eSYM.P PUNCH$,,G9PLTF 
eXQT File .STACOM 
• 

(data) 

* 

• 

0BRKPT 100 
<?FREE 100 
§SYM 100 , ,T4 

The @SYM,P command directs the resulting plot card images to 
a Cal Comp plotter designated G9PLTF. The last 6 SYM command directs print 
output to a slow hardcopy printer designated T4. 


2.2.6 Functional Limitations 

While the STACOM program was designed and implemented with the 
intention that it be applicable as widely as possible, it does have 
certain limitations. These are due mainly to the limit of the program 
size (sum of I and D bank) allowed under the EXEC -8 system for simplistic 
programs. The maximum program size allowed is 65k words per program. 
Although it is more convenient for later use to assign all parameters with 
maximum values (as long as the overall program size is within the 65K-word 
limit) this results in greater expense in use of the program due to the 
higher core-time product. Therefore, it is recommended that all 
parameters be set at values just high enough for anticipated use. 

After setting parameter values, the STACOM program 
capabilities are then limited to these assigned values. If a run requires 
that a certain parameter value be exceeded, the STACOM program must be 
recompiled and remapped. 


2.3 INPUT 

2.3.1 Data Requirements 

A setup of input data is needed before starting a STACOM 
program run. The list of data items which need to be provided by the user 
are given here in temporal order and explained briefly. Detailed FORTRAN 
V formats for these are described in Table 3-1 of Section 3 . 


2. 3 .1.1 Number of Regions . The first datum needed by the STACOM 
program is the exact number of regions under consideration. This number 
(designated internally as NR1 ) instructs the program to divide all of the 
system terminations into NR1 regions. 
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2. 3. 1.2 Number of System Terminations, Number of Data Ba ses, and 
Number of Terminal Cities . The number of system terminations is the actual 
number of system terminations to be operated . n by the STACOM program, and 
is designated internally as N1 . In anticipation of possible multiple data 
bases at different locations, the number of data bases (designated 
internally as N7) informs the program that each system termination has N7 
pairs of data (one pair per data base). 

The number of terminal cities (NCITY) informs the program that 
NCITY V-H coordinates are to be provided later. 


2. 3 .1.3 Identification of Data Bases and V-H Coordinates. N7 identi- 
fications provides the exact locations of data bases under consideration. 
All of the V-H coordinates for NCITY terminal cities are needed for 
calculating distances between any two cities. 


2. 3. 1.4 Descriptions of System Terminations . For each of the system 
terminations under consideration, the set of data, i.e., identification, 
name, city location index, and traffic to all of N7 data bases are needed 
in order to properly execute the STACOM program. 


2. 3. 1.5 Rate Structure and its Application Rule . There may exist one 
or more line tariffs applicable to different portions of any given state. 
The STACOM program has been designed with a capability to handle this 
situation. The number of applicable rate structures (line tariffs) and 
the rule governing their applications have to be input to the program by 
the user. 


2. 3. 1.6 Traffic Density and Applicable Rate Structure for each System 
Termination . In order to accommodate the fact that costs for lines 
between high traffio density cities are much lower than for others, (e.g., 
TELPAK lines), the traffic density index and applicable rate structure for 
each system termination informs and directs the program to properly 
perform costing on lines connected to this termination. 

2. 3. 1.7 Descriptions of Applicable Lines . The user dictates to the 
STACOM program the types of applicable communication lines by providing 
number of lines, their names and capacities, their desired maximum 
utilizations and their uses. 


2. 3. 1.8 Descriptions of Chargeabxe Items . In addition to costs for 
lines, there are several other chargeable items such as modems, service 
terminals and drop charges. The user must provide the number of 
chargeable items and their names. Furthermore, the user has to provide 
the STACOM program with installation and monthly recurring costs for each 
chargeable item as a function of rate structure, line type, traffic 
density, and duplexing mode. This costing information is required to 
estimate overall cost of the to-be-designed communication network. 
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2. 3 .1.9 Line Cost Data . Installation and monthly recurring costs for 
lines for each applicable line type as a function of rate structure, 
traffic density, and duplexing mode are also required. 


2.3.1.10 Constraints on Formation _of Regions . The user can preload any 
number of system terminations to preselected regions if so desired by 
assigning them to their specific destinations (regions). He can also put 
constraints on preselected regions by not allowing any insertion of system 
terminations to these regions. 


2.3.1.11 Potions on Regiona l Network Optimization . The user can direct 
the STACOM program to perform regional network optimization on regions if 
required. This is done by simply specifying such requests to the program. 

2.3.1.12 Protocol Characteristics for Multidr op_Lines . The user must 
provide characteristics of line protocol to the program. For example, 
characteristics such as number of polling characters, NAK response 
characters, and message overhead characters are required. These data, 
along with the other line traffic characteristics data, enable the STACOM 
program to estimate the average terminal response time for a given 
multidrop line. 


2.3.1.13 Characteristics of Future Traffic . Characteristics for future 
line traffic are also required. Data such as number of message types, 
their ratios, and average lengths allow the program to compute line 
service time and line utilization, which, in turn, are used to estimate 
the average terminal response tine. 


2.3.1.14 Preloading System Terminati ons to Freselected Regions and 
Pre-Assigning Regio nal Switching Centers. If the user wishes to assign 
certain system terminations to preselected regions and to pre-assigned 
regional switching centers, he can now proceed to do so. Otherwise, the 
program will perform these functions automatically. 


2.3.1.15 Assigning. System Centroid . If the STACOM program is required 
to divide system terminations into regions and to select regional 
switching centers, the system centroid is required so that the program can 
divide them properly (in a geographical sense). 


2.3.1.16 Descriptions of the Central Switcher . Data describing the 
central switcher are needed to compute switcher turn-around time for a 
given transaction. These data include the estimated message rate at the 
switcher, number of transactions entering the switcher for completing a 
message, average service time per transaction, and number of processors 
available . 
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2.3.1.17 Constraints on Mult idropoed Lines and A verage Sy stem Response 
Time. The user oan impose a constraint on the number of terminals allowed 
on a multidrop line either by limiting the number of terminals on a 
multidrop line, or by setting up a maximum average response time limit to 
the multidrop line or both. 


2.3.1.18 CalComo Plot . The user oan request a CalComp plot of the 
final multidrop communication network if so desired. Of course, some 
installations may not have such a device and the STACOM needs to be 
recompiled without plotting routine. 


2.4 PROCESSING LOGIC 

The previous section described the type of input data needed 
by the STACOM program. This subsection will be devoted to the processing 
logic implemented in the program. 


2.4.1 Traffic Calculation 

2. 4. 1.1 Traffic Conversion . In the STACOM program, each system 
termination is provided with a set of traffic figures which represent 
outgoing traffic to and incoming traffic from each data base in the 
system. The unit of traffic is specified as characters per minute. 

The traffic data for all system terminations are read into the 
matrix TRAFD(N1 , 2, N7) during the data input phase, where N1 is the 
number of system terminations and N7 is the number of data bases. While 
the input traffic data are given in characters per minute, the STACOM 
program is designed to deal with traffic in terms of bits per second 
(BPS). Thus, at the time of program execution, all traffic data are 
converted into units of bits per second by multiplying them by a factor of 
8/60. Here, we assume that synchronous communication is to be used. 


2.4.1.* Origin and_Destination Traffic bv System Terminations . 
Summations across the last subscript of the TRAFD matrix are performed to 
give total traffic originating from and destined for each system 
termination. The resulting data are stored in TRAFIT (N1) and TRAFDN 
(N1), respectively. More specifically, originating and destination 
traffic totals are given by 


and 


N7 

TRAFIT(i) = Y. TRAFD 2 » 
j=1 


N7 

TRAFDN (i) = £ TRAFD (i, 1, j) 

j=1 
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2.4.2 Distance Calculation 

2. 4. 2.1 V-H Coordinates . The length of the line plays a major role in 

determining line costs on communication networks. While the common 
carrier is free to route the line over any desired path, and may switch 
the line to different paths to circumnavigate breakdowns or overloads, the 
line charges are normally independent of actual line layout and are based 
on the straight line distance between the points connected. 

The AT&T has a system in which they have divided the United 
States by horizontal and vertical grid lines. By means of these lines, 
they give almost every city/location a vertical (V) and horizontal (H) 
coordinate, these coordinates provide the layout-free way of distance 
calculation . 


2. 4. 2. 2 Distances between System Terminations . With V-H coordinates 
as defined by the AT&T, the distance between any two locations is 
calculated as follows (Reference 3): 

(1) Obtain the V and H coordinates for these two locations. 

(2) Obtain the difference between the V coordinates and the 
difference between the H coordinates of these two 
locations . 

(3) Square each difference obtained in 2 and take a 
summation of both squares. 

(4) Divide the sum obtained in 3 above by 10. Round to next 
integer number if any fraction is obtained. 

(5) Obtain the square root of the result obtained in 4 
above. This is the distance between the given locations 
in miles, (fractional miles being considered as full 
miles. ) 


For example, to calculate the distance between Austin 
and Dallas, Texas, we proceed as follows: 



-V 


Austin 

9005 

3996 

Dallas 

8436 

4034 

Difference 

569 

38 


Distance /( 569) 2 + (38)2 = ^323761 + 1444 

" 10 ^ 10 
= ^32521 = 181 miles 
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When a specific location in the United States is not designated 
with specific V and H coordinates, it is normally assigned with the 
same V and H coordinates as the closest location. 

Following the procedures as given above, the distance between 
any given two system terminations is calculated and stored in arrays 
DSTNCB or IVBD. 


2. 4. 2. 3 Distance Data Compression and Overflow Table . Given N system 
terminations, there are N(N-1)/2 combinations in choosing two system 
terminations from them. Furthermore in any given state, there exist only 
a few large inter- terminal distances. These two facts indicate that some 
reduction in resulting STACOM program size can be made by performing 
compression of distance data. Two efforts have been undertaken for that 
purpose . 


Under the UNIVAC system, each computer word is 36 bits long. 

We divide each word into four 9-bit segments. Each segment is used to 
store one distance datum with values ranging from 0 to 511. To compensate 
for the fact that some distances data may be greater than 511, an overflow 
table IVRD is provided to collect oversized distance data. In other 
words, given two system terminations with indices 1 and J, its distance is 
recorded into DSTNCE as follows; 

(1) Find corresponding V-H coordinates of locations for both 
system terminations. 

(2) Calculate distance D according to the procedure given in 
Paragraph 2. 4. 2. 2. 

(3) Find a unique and absolute location L in DSTNCE, by 
using the following equation: 

L = I*NPC+J - A(I) 

where I 

A(I) = £i, 
i=1 

and 


I < J 

NPC = number of distinctive locations in the 
system 

This mapping function is performed by subroutine LINK, 

(4) Define 


LI = [(L— 1 )/4j + 1 
SI = (L-1) Modulo 4+1 
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where [_xj = the integer part of X and 

D1 s D if D < 511 
511 if D 2 511 

(5) Store D1 in segment SI of entry LI of table DSTNCE. 

(6) If D 511, store L and D in next available space of 
table IVRD. 

On the other hand, given two system terminations with indices 
I and J, the retrieval of distance is performed as follows: 

(1) Calculate L, LI and SI as described above. 

(2) Retrieve the content D1 in segment SI of entry LI of 
table DSTNCE. If D1 < 511, it is the distance. 

(3) If D1 = 511, retrieve the second element of the row of 
table IVRD, whose first element contains value L. The 
retrieval value is the distance. 


2.4.3 Formation of Regions 

After traffic summations and distance table formation are 
completed, the STACOM program starts to form regions. It assigns all of 
the non-preloaded system terminations to regions which can accommodate 
them. Figure 2-8 illustrates the process of such a function. 

The process begins with an estimation of the traffic per 
region, called TPR, which is obtained by averaging the total non-binding 
traffic, i.e., 


with 


where 


TPR = TPR 1 /ANRI 


TPR1 = S [TRAFIT(i) + TRAFDN(i)] 
HI 

1 < i i N1 


I = the set of system terminations in preloaded 

regions which do not allow other system termina- 
tions to be inserted to them 

ANRI = NR1 - [number of preloaded regions which do not 
allow any insertions] 
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ESTIMATE 

1. TPR 

2 , TPRL 


TPR - TRAFFIC PER REGION 

1PRL « 0.9* TPR 

TRFS ■ PARTIAL TRAFFIC SUM 

NSt - FARTHEST I JN ASSIGNED SYSTEM TERMINATION 
FROM SYSTEM CENTROID NSCCl 
NS2 - NEAREST UNASSJGNEO SYSTEM TERMINATION 
FROM NS1 

RSC - REGIONAL SWITCHING CENTER 



IS 

NREG -NRl? 


ISNREGA 
PHELOADED 
^ REGION? 


1. FINDNSt 

2. ADD ITS TRAFFIC 
TO TRFS 


IS 

TRFS > TPRL? 


1, FIND NS? 

2, APD ITS TRAFFIC 
TO TRFS 


IS 

THFS> TPRL? 


INCREMENT 
NREG BY 1 


IS 

INSERTION 

OK? 


L ADD ITS TRAFFIC 
TO TRFS 
?. FIND NS1 


" IS 
TRFS> TPRL 


IS RSC PRE* 
SELECTED? 




Figure 2-8, Flow Chart for Formations of Regions 
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When the number of regions is 1, all of the system terminations 
are assigned to the region and no other region formation process is 
performed. Otherwise, the program starts assigning system terminations 
to regions (in a cardinal order) which allow their entries. 

The following two subsections describe the detailed processes 
for assigning system terminations to a region either with preloading or 
without preloading. 


2.4.3. 1 Assigning System Terminations to a Region without Preloading . 
When a region NREG is not preloaded with any system termination, 
processing continues with the finding of the farthest unassigned system 
termination (NS1) from the system centroid (NSCC1). This system 
termination is then assigned to the region NREG; its incoming and outgoing 
traffic is added to the partial sum traffic, called TRPS. The resulting 
TRFS is then tested. If it Is greater than TPRL, (lower bound), which is 
equal to 0.9 x TPR, assignment processing for region NREG ends with re- 
estimating TPR and TPRL which are obtained as follows: 

TPR1 = TPR1 - TPFS 
TPR = TPR 1/( ANRI - 1.) 

TPRL = 0.9 * TPR 


On the other hand, if TPRS is less than or equal to TPRL, 
additional system terminations can be assigned to this region. The next 
system termination for addition to this region is selected by finding the 
nearest unassigned system termination, called NS2, from NS1. NS2 is then 
assigned to region NREG and its traffic added to TRFS. The value of TRF 
is again tested against TPRL to determine if other additions are possible. 

This process is repeated until partial regional traffic 
sum TRFS is greater than TPRL. At this point, the region is considered 
full and addition of system terminations to this region stops. However, 
if the region being filled is the last one, all remaining system termina- 
tions are placed into this last region. Otherwise, the program continues 
to work on the next region. Before leaving region NREG, it re-estimates 
TPR and TPRL as shown before. 


2. 4. 3- 2 Assigning System Terminations to a Region with Preloading . If 
the region NREG is a preloaded region, i.e., it has been preloaded with 
system terminations, the program continues with a test. The test is 
needed to determine whether region NREG will accept any additional system 
terminations. If other insertions to the region are not allowed, the 
processing on this region stops and continues to the next region. 

Otherwise, the program starts adding traffic to all preloaded 
system terminations to TRFS and finding the farthest unassigned system 
termination NS1 from the system centroid. It then tests whether TRFS is 
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greater than TPRL. If it is greater, the program stops here and continues 
to process, the next region. 

When TRPS is less than TPRL, the program checks whether there 
is a preselected RSC for the region NRGG. If there is, the program uses 
the RSC as the NS1 . Then it follows the same procedure as described in 
paragraph 2.4.3. 1 to add more system terminations to the region. 

It should be noted that STACOM has been Implemented in such a 
way that when it is desired to preload some or all regions, the last one 
need not be specified. The program will assign the rest of the unassigned 
system terminations to the last region. 


2. 4. 3. 3 Example f_or_Eorroation of Regions . Figure 2-9 illustrates the 
results of applying the formation of region logic to a Texas communication 
system with 265 system terminations. In this example run, neither 
preloading ot system terminations nor preselection of regional switching 
centers are requested. In other words, the program Is asked to perform 
automatic regional formations and to select the regional switching 
centers. System termination Austin is chosen as the system centroid. 

The total amount of traffic, TPR1 is at a rate of 1585.02/bps, 
and the number of regions is 2. Therefore, at the beginning, TPR is given 
as 1585.02/2=792.51 bps, and TPRL = 713.26 bps. In the process of 
assigning system terminations to region 1, El Paso is found to be the 
farthest location from Austin, i.e., NS1 = the Internal index for system 
termination El Paso. With NS1 available, the program starts the procedure 
of searching for NS2, adding its traffic to partial sum TRFS and testing 
whether TRFS is greater than TPRL. It repeats the same procedure 123 
times until TRFS has reached the value of 750.08 bps which is greater than 
TPRL. 


2.4.4 Selection of Regional Switchers 

Selection of regional switching centers follows formation of 
regions as described in Paragraph 2.4.3. For a given region, its regional 
switching center (RSC) can be either preselected by the user or be chosen 
by the program. In the latter case, the program selects the system 
termination within the region such that total intra-region traffic- 
distance products are minimized. 

The functional flow chart of RSC selection is depicted in 
Figure 2-10. Processing begins with assigning 10 12 to WCASE (as base for 
traffic-distance product sum) . It then calculates the estimated sum of 
all traffic-distance products with each system termination in the region 
as an RSC site. The sum, called SUMT, is obtained as follows: 

NMBR 

SUMT = £ [TRAFDN(i) + TRAFIT(i) ] * DIST(i,K) 
i= 1 
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where 


NMBR s number of system terminations in the region under 
consideration 

K = the index of the system termination considered as the 
trial RSC site 

DIST(i,K) = the distance between system termination i and the 
RSC trial site K 

The resulting SUMT is then compared with HCASG. If SUMT 
is found to be less than WCASE, the value for WCASE is replaced by 
the value of SUMT and the corresponding index for the RSC trial site 
is the updated RSC, called NRSC. 


REGION I 


© REGIONAL CENTER 




TEXAS 



TOMBALL 


Figure 2-9. Example of Region Network Formation and 
Regional Switcher Selection 
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Figure 2-10. Flow Chart for RSC Selection 
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After the above processing has been repeated NMBR times, 
the resulting NRSC is the index for the selected RSC and WCASE the 
region's minimal traffic-distance product sum. 

When a regional switching center is preselected by the user, 
the program skips the process as described here. 

Following the selection of a regional switching center for a 
given region, the program continues to perform regional network formation 
and network optimization before it repeats the selection of regional 
switching centers for remaining regions. 

The process of regional network formation and optimization is 
discussed in Paragraphs 2.4.5 and 2.4.6. 


2.4.4. 1 Example for Selecting a Regional Switching Center . Following 
the formation of regions in the example given in Paragraph 2. 4. 3. 3, the 
program has chosen Brownwood of Brown county as the switcher location for 
Region 1 and Tomball of Harris county as the switcher location for Region 2. 
Both locations have been found to provide the minimal traffic-distance pro- 
duct sums for respective regions. These two cities are shown in Figure 2-9- 


2.4.5 Formation of Regional Star Networks 

Formation of a regional network starts with a star network and 
then continues with an optimization process which, most of the time, results 
in a cost-saving multidrop network. This subsection describes the process 
of forming a star network, which is depicted in Figure 2-11. The initial 
regional network is formed by directly connecting each system termination 
to the regional switching center. Selection of these intra-region lines 
is constrained by the rule that each selected line should maintain the line 
utilization factor, called RHO, at a value le3s or equal to a preselected 
number, say, 0.7. 


For each system termination in the region, the program finds 
incoming and outgoing traffic, TRFOUT and TRFIN , and also its distance, 
DSTN, from the RSC for t, h system termination in the region. The program 
calls subroutine LINNUM, which constructs a line configuration LDUMMY and 
calculates its line utilization, based on the values of TRFIN and TRFOUT 
provided. The processing continues to calculate both the cost, COST, for 
the derived line configuration LDUMMY and its response time RSPTIM. 

Finally, all these data are stored for later printout and comparisons. 

The derivation of line configuration LDUMMY by subroutine 
LINN'uM and the associated cost, COST, deserves more explanation. The 
program assumes that the duplexing mode for all line types under 
consideration to be half-duplexed. Therefore, subroutine LINNUM will sum 
up TRFIN and TRFOUT and find an applicable line with the least capacity 
which assures less than 0.7 of utilization. When the highest capacity 
line cannot handle the traffic, the routine will try to add one additional 
line with least capacity until the constraint of 0.7 utilization factor is 
satisfied. With line configuration LDUMMY obtained, calculation of cost, 
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TRFIN*TRAFIT{K) 
TRFOUT-TRAFONIK) 
OSTN*DIST(K, NN1) 



1. DETERMINE LINE 
CONFIGURATION 
LOUMMY 

Z CALCULATE LINE 
UTILIZATION RHO 


I 


CALCULATE COST, 
COST, FOR LOUMMY 

r~ 
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I 
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LATER PRINTOUT 



K « LOCAL INDEX 
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TERMINATIONS IN THE REGION 
NN1 » LOCAL INOEX FOR RSC 


( CALL LINNUM ) 


(CALL ICOSTJ) 


1. Flow Chart for Regional Star 
Network Formation 
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COST, for the direct link between system termination K and the RSC is 
performed by ICOSTJ. The routine ICOSTJ calculates all of the related 
installation and annual recurring costs for lines and other chargeable 
items. All of these itemized costs are then summarized as COST. Cost 
calculations are performed on the basis of the rate structures applicable 
to system terminations at both ends. 


2.4.5. 1 Examples of Line Selections . Table 2-1 lists some examples of 
line configurations results obtained by LINNUM, and illustrates how the 
LINNUM subroutine selects lines for given traffic. The first column of 
the table represents total traffic (sum of TRFIN and TRFOUT) . In this 
example, it is assumed that only line types with capacities of 300 bps, 
1200 bps and 4800 bps are under consideration. Line utilization factor 
has been constrained to not greater than 0.7. 


2.4.6 Optimization of Regional Networks 

After completing the formation of a regional star network, the 
program proceeds to the optimization process, if requested. The optimi- 
zation process basically utilizes a technique developed by L. R. Esau 
and K. C. Williams (Reference 1) and is used to minimize line operating 
costs. The actual implementation of the technique has been made with 
several additional constraints for practical reasons. 

Before going into detail, here is a brief explanation of the 
goal and process of network optimization of a regional star network. 

Figure 2-12 depicts a typical star network in which each system termination 
has a direct link, called central link, to the central regional center. 

The goal of optimization is to reduce line costs by eliminating as many 
central links by connecting the associated system terminations to their 
nearby system terminations as possible, until it is no longer cost- 
effective to do so. Figure 2-13 shows a typical multidrop network 


Table 2-1 . Examples of Line Configurations Obtained by 
Subroutine LINNUM 


Traffic (bps) 


Line Type 



300 bps 

1200 bps 

2400 bps 

4800 bps 

200 

1 

0 

0 

0 

500 

0 

1 

0 

0 

850 

0 

0 

1 

0 

1300 

0 

0 

1 

0 

2000 

0 

0 

0 

1 

3500 

1 

0 

0 

1 


2-29 


77-53, Vol* IV 



Figure 2-12. Typical Star Network 



Figure 2-13. Typical Multidrop Network of Optimization 


after this goal is met, assuming that the line cost is only a function 
of distance. While this example as given depicts the main concept 
of network optimization, it does not illustrate the process of sizing 
each newly formed multidrop line to refleot the increase of traffic 
resulting from the addition of new system terminations. 

The following section describes the logic implemented in this 

program . 


2.4.6. 1 Network_Qptimization bv Esau-Wllliams Technique . Before 
explaining the logic for network optimization implemented in the STACOM 
program, a brief explanation of the Esau-Wllliams network optimization 
process is appropriate. With a given star network, the basic process of 
the Esau-Wllliam technique is to repeat two basic steps until it is no 
longer possible to derive any oost saving. 
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For the convenience of the following discussion we define 
a sub-network (subnet) as a tree- type multidrop line consisting of 
one or more system terminations and having a central link connected 
to the regional center. Each central link of a given star type network 
is a simple sub-network by definition. 

The first step involves searching for the best central link of 
a system termination, K, so that its elimination and the subsequent 
reconnection of the rest of the sub-network to a nearby sub-network L 
provides the best cost saving. In other words, for each system termi- 
nation, i, with a central link to the regional center, this routine 
estimates the best saving, S^, resulting from eliminating the given 
central link and reconnecting the rest of the subnetwork to a nearby 
subnetwork beginning with Lj_. If we express it as a formula, then 

K = i such that = Max {Sj} 

J«C 

Lj^ = j for which the integration of K and L sub-networks 
provides S K which is the best saving 

where 

C = the set of system terminations with central links 
to regional center 

j = the first system termination of sub-network L 

The other step involves network updates after it has been 
determined that the central link from system termination K is to be 
eliminated; this step will integrate remaining subnet K with subnet L 
utilizing an alternate route. 

It should be noted that although this network optimization 
process will generate the best network most of the time, it does not 
always provide the best one. In other words, this technique generates the 
local optimal solution rather than the global solution. This is because 
the first selection of a central link for elimination dictates the final 
network to be created by repeating the process as described above. 

However, as shown in Reference 4, the process does provide a solution 
which is always close to, if not, the best. 


2. 4. 6. 2 Network Optimization Logic in STACOM Program . The 
optimization logic as implemented in the STACOM program basically utilizes 
the Esau-Williaras technique. However, constraints have been incorporated 
into it in order to satisfy project requirements and to eliminate 
unnecessary searching. Figure 2-14 shows the functional flow chart for 
the overall logic . 

The optimization process starts with the test to see whether 
there is only one sub-network left. If this is true, it stops. 

Otherwise, the program, utilizing four variables K, L, M and KI, starts 
evaluating possible cost saving by eliminating central link K and 
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Figure 2-14, Flow Chart for Subroutine ESSWIL 
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reconnecting the rest of sub-network K to sub-network L through system 
terminations M of L and KI of K as shown in Figure 2-15. 

Selections of values for variables K, L, M, and KX are in the 
following way. For each processing cycle, searching and updating, K is 
assigned the index values from the first sub-network to the last one of 
the existing network. For each K, L is assigned index values from the 
first sub-network to the last one except K * L. With values for K and L 
chosen, M is assigned the index values of all the system terminations on 
sub-network L and KI the index values of all the system terminations on 
the sub-network K. 

For each given set of K and L, the program tests whether the 
sum, NT, of numbers of system terminations for both sub-networks exceeds 
the value of NTERMS which constrains the number of system terminations on 
a multidrop line. If this is true, it skips the process of calling on 
subroutine TRYLNK , because it is not possible to integrate both sub- 
networks without violating the said constraint. Otherwise, it continues 
to the distance test. 


K = THE SUBNETWORK BEGINNING WITH SYSTEM TERMINATION K 

L = THE SUBNETWORK BEGINNING WITH SYSTEM TERMINATION L 

M = THE SYSTEM TERMINATION ON SUBNET L TO WHICH KI IS TO 

BE CONNECTED 

KI = THE SYSTEM TERMINATION ON SUBNET K FROM WHICH SUBNET 
K IS CONNECTED TO M OF SUBNET L 

DREF = THE DISTANCE BETWEEN SYSTEM TERMINATIONS K AND THE RSC 

DTRY= (THE DISTANCE BETWEEN SYSTEM TERMINATIONS KI AND M)/2 


SUBNET L 



Figure 2-15. Relationship among K, L, KI, and M Parameters 
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The program first calculates the distance DREF between system 
termination K and the region switching center for each K, and then the 
DTRX which is half of the distance between system terminations KI and M 
for each combination. 

If DTRY is greater than DREF, the program skips the process of 
calling on subroutine TRYLNK. Otherwise, it calls on subroutine TRYLNK. 
The purpose of subroutine TRYLNK is to estimate the possible cost saving 
resulting from eliminating central link K, and integrating sub-networks K 
and L by connecting system terminations KI of K and M of L. If the saving 
is better than the maximum saving obtained so far, it is used as the up- 
to-date best cost saving under the set of values for K, L, KI, and M. A 
detailed description of functions performed by subroutine TRYLNK is given 
in Paragraph 2. 4. 6. 3. After all possible combinations for K, L, KI, and M 
have been tested and it has been found that the up-to-date best cost 
saving is positive, the program performs the second function of network 
optimization, i.e., updating the network. It then repeats the whole 
process on the newly updated network which happens to have one less 
central link. 

If the up-to-date maximum cost saving is non-positive, the 
optimization process stops here. 


2. 4. 6. 3 Function Performed by Subroutine TRYLNK for a Given Set of 
Values K. KI. L. and M. The processing, as shown in Figure 2-16, starts 
with estimating the total amount of traffic that a single multidrop line 
(sub -network) of integrating subnetworks K and L needs to handle. It then 
estimates the required line configuration, LDUMMY, by calling subroutine 
L1NNUM which has been described in Paragraph 2.4. 5.1. Based on LDUMMY, 
the program estimates the average response time and tests it against the 
user-provided response time limit by calling subroutine RSPNSE. If the 
estimated response time is not satisfied , the program updates the line 
configuration LDUMMY to the next higher line type and repeats the process 
of estimating its average response time and testing it against the given 
constraint. This process ends when either there is a satisfied line 
configuration or it is not possible to upgrade any further . 

When a satisfied line configuration is obtained, the program 
continues to estimate its cost saving, based on the assumed integrated 
sub-network. If the resulting cost saving is better than the up-to-date 
best cost saving, it replaces all of the maximum saving parameters, which 
are used to keep tracking the up-to-date best network changes; it then 
returns to its calling routine. If there is no line configuration 
satisfying the response time constraint, the process stops and the program 
returns to its calling routine. 
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CALL LINNUM 


CALL RSPNSE 


Figure 2-16. Flow Chart for Subroutine TRYLNK 
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2.4.6.11 functions Performed by Subroutine RSPNSE . Figure 2-17 shows 
the flow chart of the subroutine RSPNSE. This subroutine calculates six 
items of delays: polling, message transmission time from a terminal to 

the central switches, input buffer queue time, service time, output buffer 
queue time, and returned message transmission time from the central 
switcher to the same terminal. 

After summing up these delays as RSPTIM, this subroutine 
compares its value with the upper bound response time as set up by the 
user. It assigns 1 to IOK as an indication of satisfying response time 
requirement and returns. 



TYPE OF DELAYS 

1. POLLING WAIT 

2. MESSAGE-IN SERVICE TIME 

3. INPUT QUEUE 

4. CPU SERVICE 

5. OUTPUT QUEUE 

6. RESPONSE MESSAGE SERVICE 
TIME 


Figure 2-17. Flow Chart for Subroutine RSPNSE 
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2. 4. 6. 5 Network Updates tar Subroutine UPNETW. If there is a positive 
oost saving after trying all possible combinations for parameters K , KI , 
L, and M, subroutine UPNETW is called upon to perform the other function 
for each cycle of the network optimization process as described in 
Paragraph 2.4.6. 1. 

In the STACOM program, subroutine UPNETW performs the 
following main functions: (1) updating of network descriptions, (2) 

revision of relevant accounting data (suoh as the number of terminals on 
the new L sub-network, its average response time, and total traffic). 


2.4.7 Formation of an Interregional Network 

The interregional network is formed by erecting communication 
lines between the regional switching oenters (RSCs). The initial network 
has a direct line between any two RSCs. 

As shown in Figure 2-18, for each combination of two RSCs I 
and J, the maximum traffic in either direction is considered as the design 
traffic between these two RSCs. This is different from intraregional line 
selection because it is assumed that full duplex lines are to be used. The 
traffic matrix TRM contains traffic data between RSCs. With this 
information, line configuration LINEQU between RSCs I and J is obtained by 
calling subroutine LINNUM. 

Cost of line configuration LINEQU is then estimated and added 
to the total cost. 


2.4.8 Optimization of an Interregional Network 

After the initial interregional network is completed, the 
program starts a line elimination process in order to obtain a cost- 
effective network. 

Figure 2-19 shows the basic topological consideration involved 
in line elimination. In considering whether line I-J can be eliminated, 
the algorithm tries to divert I-J traffic to other lines with excess 
capacity, for example, over route 1-4-3. If there is no alternate route 
with enough excessive capacity to handle I-J traffic, the program begins 
adding capacity to alternate routes in order to accommodate the required 
traffic. It then estimates the cost saving under the proposed modifications. 

The algorithm iterates the above described process for all 
combinations and records the best oost saving and the best line elimination. 

It then updates the network. 

This cycle of searching for the best cost saving and updating 
the network repeats continuously until cost savings can no longer be realized. 


I 


I 


t 



Figure 2-18. Flow Chart for Intraregional Line Selection 
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Figure 2-19. Basic Topology of Line Elimination 


2.4.8. 1 Interregi on Network Optimisation Logic Implemented . Figure 
2-20 depiots the functional flow chart for the interregional network 
optimization as implemented in the STACOM program. 

A parameter, I, is used to select one of the RSC nodes 
to be considered for line elimination. A test is then made on RSC 
I to insure that at least three links to other RSCs exist. If I has 
at least three links, another parameter, J, is used to select any other 
RSC node for trying to eliminate its link to I. J is tested to insure 
that it has three links to other RSCs and J is different from I. Another 
test is made to insure that I and J are connected to each other. If 
any of these conditions are not met, RSC node J + 1 is selected and 
these three tests are repeated. 

If these conditions are met, a test is carried out to see if 
sufficient network connectivity will still be maintained if connection I- 
•J is removed. Due to the consideration of availability, the program is 
designed in such a way that each RSC node will have at least two 
communication links to other RSCs and each RSC node will be connected to 
every other RSC node through no more than one intermediate node. 

If the network connectivity requirement can be maintained with 
the removal of link I-J, the program searches tor alternate routes with 
excess capacity in an effort to re-route the I-J traffic load without 
increasing network capacities. If all I-J traffic can be successfully 
diverted in this manner, the I-J link is eliminated and the network 
traffic matrix and costs are re-caloulated; the process then begins anew. 
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Figure 2-20. Flow Chart for Interregion Network Optimization 
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If all I-J traffic cannot be diverted through existing network 
routes with excess capacities, the capacity of the first available 
alternate route is increased to handle the remaining traffic. The cost 
saving is determined as equal to the original cost of the line removed 
minus the cost for the capacity Increase. If the cost saving is an 
improvement over previous tri^.o, line and traffic data are saved to 
reflect the up-to-date best modification of the network. 

At the conclusion of each cycle, if the cost saving is 
positive, the line and traffic data associated with the best saving are 
used to eliminate the line, update the network, and recost the network. 

The process is continually iterated for each updated network 
configuration until cost savings are no longer positive. 


2.5 OUTPUT 

The STACOM program gt. ic . .gular printer output and a 

CalComp plotter output. In addition, wh\ *e program is run as a demand 
job, run-status output will show up on the interactive terminal. This 
part of the printout provides information on the progress of the run. 

Details of data contained in the regular printer output are 
given in Paragraph 2.5.1; Paragraph 2.5.2 describes the CalComp plot. 


2.5.1 Printer 

The printer output contains all the data resulting from the 
running of the STACOM program. The amount of printout data depends upon 
the number of system terminations operated and also upon the number of 
functions executed in each specific run. 

Following is a list, in temporal order, of the data items 
which a run may produce. 


2.5. 1.1 Line Type and Transmission Line Characteristics . The first 
set of data are the line type and transmission line characteristics as 
used in the run. for each line type, the polling protocol data and modem 
turn-around time data, etc., are provided. 


2.5. 1.2 Message Characteristics . Message characteristics are the next 
set of data output from the program. They include average input message 
length, average output message length and overall average message length. 


2. 5. 1.3 Preload lng-Qf System. Terminations and Preselection of Regional 
Switcher. Locations . If there are any preloadings of system terminations 
and/or pre-selections of switcher locations, this information will be 
provided in the printout. Otherwise, no data will be shown in this 
regard . 
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2.5. 1.4 Traffic and Distance Tables . These are tables which show both 
traffic from/ to all system terminations and distances between system 
terminations. 

The first table gives the traffic data from each system 
termination to/ from each data base; the next one gives the traffic data 
destined to and originating from each system termination. The last tan e 
shows the distance data between any two system terminations. 


2 . 5 . 1 . 5 System Centroid and the Utilization Factor of the Central 
Switcher . The system centroid as designated by the user is printed next 
as a reminder. After this, the CPU utilization factor of the central 
switcher as calculated by the program is printed to indicate the load. 


2 . 5 . 1 . 6 System Terminations in a Region and its Regional Switching 
Center . For each region, the program prints out the identification and 
name of each system termination in the region. These system terminations 
may have been pre-loaded or assigned to the region by the program. The 
program also prints out the location of the RSC for the region, which is 
either pre-ass igned by the user or selected by the program. 


2.5. 1.7 Star Network and its Costs . After showing what system 
terminations are in the region, the program prints out the regional star 
networks and costs associated with each central link. It also provides 
summarized costs. Detailed descriptions for each central link are given 
below. 


2.5. 1.7.1 Line Configuration and Effective Utilization . The line 
configuration for each central link is printed as a column vector, which 
has the same number of line types used in the run. The effective line 
utilization is also printed to show the traffic load from the system 
termination . 


2.5. 1.7.2 Distance . The distance from the system termination to the 
regional switching center is printed. 


2.5. 1.7.3 Line Traffic and Effective Response Time . The amount of 
traffic from/to the system termination is printed before the effective 
line response time as calculated by the program is printed. The calcula- 
tion is based on the line configuration and traffic as shown and should be 
better than the response time requirement. 


2.5. 1-7.4 Installation and Annual Recurring Costs . The installation and 
annual recurring costs for providing the central link are given in terras 
of chargeable items such as service terminal, modem, line and drop. 

Partial sums for the line are also printed. Finally, total installation 
and annual recurring costs for each chargeable item and for the overall 
star network are printed. 
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2.5. 1.8 MnaJLOjatimized^i^workand^its Costs . After performing 
optimizations on the star network, the program prints out descriptions for 
each multidrop line in the final optimized network. The following list 
shows the data items which may be printed. 


2.5. 1.8.1 Multidrop Line Configuration . Each multidrop line has an 
index, the beginning terminal and number of terminals on the line. The 
exact line configuration is printed as a column vector, with only one 
non-zero element. The content of that non-zero element must be one, due 
to the fact that multidropped terminals can only perform on one line. 


2.5. 1,8.2 Line Utilization. Mileage. Traffic ,^and_ResPonse- Time . The 
line utilization, total mileage and incoming/outgoing traffic on each 
multidrop line are printed. The program next prints the average response 
time, which should be better than that required by design, to be expected 
by each user terminal on the line. 


2.5. i. 8 .b In&fcallaUan and Annual . Ms urrim The amount of 

installation and recurring costs are then listed in terms of chargeable 
items as explained in Section 2.5. 1.7.4. 

Finally, total installation and annual recurring costs for 
each chargeable item and for the overall network are printed. 


2.5. 1.9 Network Drawing . A network diagram in terms of tree- type 
relationship is last printed. It uses the system termination 
identification as nodal notation. 


2.5.1.10 Initial Interregional Network . If formation and optimization 
of the interregion network is required, the program will perform these 
functions and print its initial and optimized network. For each pair of 
HSCs, the program prints out line names, configuration, utilization, and 
installation and recurring costs. Total network cost is also provided. 


2.5.1.11 Optimized Interregional Network . The program prints out 
similar data for the final optimized interregional network after 
completing the network optimization. 


2.5.2 Cal Corap Plot 

A CalComp plot subroutine has been incorporated into the 
STACOM program for the purpose of providing a visual plot of each 
optimized regional network obtained by the optimization process. The 
subroutine converts each final optimized regional network into a two 
dimensional plot, utilizing the CalComp plotter. It should be noted that 
the CalComp plot is an optional product. If desired the user can command 
the STACOM program not to generate the plot. 
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2.6 SYSTEM CONFIGURATION 

In this section, we will describe the basic computer system 
required to run the STACOM program. 


2.6.1 Hardware 

The following list describes the hardware units that should be 
part of the computer system on which the STACOM program is run. 


2.6. 1.1 Central Processing Unit . Due to the fact that the STACOM 
program is coded with the FORTRAN V language and compiled and mapped under 
the EXEC-8 operating system of the UNIVAC 1108 systems, a UNIVAC 1108 CPU 
or one equivalent to it is a prerequisite of the use of the STACOM 
program. When this type of CPU is not available, some conversion efforts 
on the STACOM program may be required. 


2.6. 1.2 Main Core Storage . Although the core size required by the 
STACOM program varies by parameter values assigned, it is generally true 
that 65K words would be a minimal requirement . 


2. 6. 1.3 CalComo Pen Plotter . A CalComp pen plotter is required for 
the use of the STACOM program. If other types of CalComp plotters, e.g., 
CalComp Model 1675 are to be used, the plotting subroutine of the STACOM 
program needs to be revised. 


2.6. 1.4 Line Printer . A regular printer to receive FORTRAN output 
files is needed. It will print out all run results collected by file 100. 


2.6. 1.5 Demand Terminal . A demand terminal provides the user with an 
alternate way of running the STACOM program, although the program can be 
run as a batch job. With the demand terminal, a user can interactively 
perform the program execution. 


o_nii 
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SECTION 3 

PROGRAM OPERATIONS 


3.1 INTRODUCTION 

This section is intended for use as a reference manual for the 
user, both to prepare input data and to operate the STACOM program. With 
this in mind, this section is devoted to an explanation of how input data 
are prepared, how the program is executed, and what the input/output of 
the program is to be. 


3.2 ENVIRONMENT 

3.2.1 Hardware 

The following list describes the hardware units that should be 
part of the computer system on which the STACOM program is run. 


3. 2. 1.1 Central Processing Unit (CPU) . Because the STACOM program is 
coded with the FORTRAN language and compiled and mapped under the EXEC-8 
operating system of the UNIVAC 1108 systems (see Paragraph 1.1), a UNIVAC 
1108 CPU or one equivalent to it is a prerequisite for using the STACOM 
program. When this type of CPU is not available, some conversion effort 
on the STACOM program may be required. 


3. 2. 1.2 Main Core Storage. Although the core size required by the 
STACOM program varies with the parameter values assigned, it is generally 
true that 65k words would be a minimal requirement. 


3. 2. 1.3 CalComp Pen Plotter . A CalComp pen plotter is required for 
the use of the STACOM program. If other types of CalComp plotters, e.g., 
CalComp Model 1675, are to be used, the plotting subroutine of the STACOM 
program has to be revised. 


3. 2. 1.4 Line Printer . A regular line printer to receive FORTRAN 
output files is needed. It is to print out all run results collected by 
file 100. 


3.2.1 .5 Demand Terminal. A demand terminal provides the user with an 
alternate way of running the STACOM program, although the program can be 
run as a batch job. With the demand terminal, a user can interactively 
perform the program execution. 
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3*2.2 Software 

3.2.2. 1 Programming Language. The STACOM Program is implemented with 
the FORTRAN V language of the UNIVAC system, compiled by the EXEC-8 
FORTRAN Processor FOR, and mapped by the mapping processor MAP. Because 
of the inclusion of a plotting subroutine , the system library file 
LIB*PLOT$ is required during mapping. 

An understanding of the FORTRAN V features is available in 

Reference 2. 


3 -2. 2. 2 Operating, System . The EXEC-8 operating system of the UNIVAC 
1108 computer system is used in the development of the STACOM program. As 
this operating system has been used for executing regular FORTRAN V 
programs this same operating system must be used for executing the current 
edition of the STACOM program. 

The STACOM program has been designed so that all of the 
desired printer output will be dumped to file 100. Therefore, before 
executing the STACOM program, an alternate file 100 must be assigned. 
Otherwise, regular WRITE unit 6 will be the destination device; this will 
make it awkward when runs are performed via a demand terminal since most 
of the output from the program uses 132 characters per line. 

Furthermore, an execution of the program will generate a 
punch-card .image file. It is, therefore, recommended that a file be 
assigned to store the punch-card file , and that this later be directed to 
a CalComp plotter . An alternative is to have a command statement which 
requests the operating system to @SYM the output punch-card file to a 
CalComp pen plotter . 


3.2.3 Functional Limitations 

While the STACOM program has been designed and implemented 
with the intent that it be as widely applicable as possible, it does have 
certain limitations. Following is a list of functional limitations that 
exist in the program. 


3.2.3. 1 Program Size . Under the EXEC-8 operating system, the size for 
regular programs is limited to 65k words per program. Because of this, 
assignments of parameter values during the compilation stage are 
conditioned to this limit of the overall program size when mapped. 

Although it will be more convenient for later uses of the STACOM program 
if all of the parameters are assigned with maximum values within the limit 
of 65k words, this will Increase the run cost. This is because of the 
core-time product charge. 


3. 2. 3 . 2 Parameter Variables . The PARAMETER statement of the FORTRAN 
language is one of those commands which make the language a powerful tool 
in problem solving. 
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To aeeompllsh the goal of making the STACOM program a widely 
uaable tool for network design, it has been implemented with several 
parameter variables. For each compilation of the program, a set of 
values is assigned to the parameter variables. Therefore, any subsequent 
use of the STACOM program will be limited to oases where the actual 
values assigned to the variables are within the parameter values defined 
during compilation. Any run whose input data violates this rule will 
need modification of the parameter values of the program, recompilation, 
and remapping. For example, NP1 is a parameter variable whlcn is used 
to make the number of system terminations allowed in a system a variable. 
A ohoice of NP1 as 105, for example, dlotates that the STACOM program 
can only be used in systems where 105 or less system terminations are 
under consideration. Any run whioh has a number of system terminations 
greater than 105 will result in either an abnormal run termination 
or a normal run termination with unwanted output. 


3.2.3. 3 Response Time . The response time algorithm implemented in the 
program is based on the model (Reference 5). In applying this program to 
a given system, some consideration of the applicability of the response 
time algorithm is required. If the central switcher does not behave 
similar to this model the response time subroutine RSPNSE has to be 
revised and recompiled and the STACOM program has to be re-mapped. 


3. 2. 3 . 4 CalComp Plot . The graphic output portion of the STACOM 
program has been implemented with the plotting routines designed for the 
CalComp pen plotter. If other types of CalComp plotters, e.g., CalComp 
Model 1675, are to be used, the plotting subroutine of this program needs 
to be revised and recompiled and the STACOM program has to be re-mapped. 


3.3 RUN DESCRIPTION 

3.3.I Initialization and Setup 

When the STACOM program is executed from an 80-character/line 
demand terminal, an alternate file, 100, to be used as a printer output 
file, must be defined. Otherwise, all printout data will be directed to 
the terminal which will produce interleaving output. The statement 
@ASG,UP 100 defines the alternate file. 

In addition to the redirection of output file destination, the 
user has to direct the punch-card file to a proper unit for a CalComp 
plotter. As an example, the statement 6SYM,P PUNCH$ , ,G9PLTF will direct 
the punch-card images to a CalComp plotter designated with G9PLTF. 

The preparation of input data can be best described by 
referring to Table 3-1 which shows all of the data items with their 
required formats. The table is self-explanatory, but some of the data 
items deserve additional description. 
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Because the exact number of data bases varies from State to 
State, the format for item 5 allows a maximum of 5 data bases wherein the 
last three pairs of entries must be given on a separate card. 

The notation Txl for item 8 indicates that the exact value is 
equal to the next integer which is greater than or equal to X. The format 
for line recurring costs has been designed with the assumption that 
both linear and nonlinear functions will be used in tariffs for line 
services. Because of this, the STACOM program provides options for 
either scheme. When a cost function is nonlinear, it is assumed to 
be stepwise and only eight steps are allowed. If eight are not enough, 
the program has to be updated. 

The amount of input data for item 15 varies from one run to 
another. The program has default values of zeros for all entries in IACTN 
( NR 1,2). A zero for the first element indicates the acceptance of 
additional system terminations into a resrion when it is a preloaded 
region; a zero for the second element indicates that the optimization 
process for the region is not needed. 

When a user decides either to exclude the addition of other 
system terminations into a preloaded region, or to request an optimization 
process performed upon a specific region he must so inform the STACOM 
program by adding data cards with two inteaer numbers. The first number 
gives the region index; the second number indicates the action: 1 

indicates insertion exclusion, and 2 indicates optimization. When all 
requests for actions have been made, a card with two zaroes is required 
to indicate that fact. 

Finally, item 20 provides the tool for a user to preload 
system terminations to certain regions, and/or preselect the regional 
switching center. Three numbers are needed for each action. The first 
number, called NCODE, directs the specified action: 1 assigns a system 

termination to a specific region; 2 assigns a system termination as the 
RSC for a specific region. The second number, called NSTATE, gives the 
identification number for a system termination to be assigned to a region 
or to be selected as an RSC. The third number, called NREGQ, designates 
the region to be acted upon. When the first number has a value of three, 
the assignment selection activity terminates. 


3.3.2 Run Options 

As indicated in Table 3-1, there are several independent 
variables provided only at the time of execution. This provides 
additional capabilities to the STACOM program. 
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Table 3-1. Formats for Input Data 


Item 

No. 

Item Description 

Names of Internal 
Variables/ Arrays 

Number of Cards 
Needed 

Formats 

1 . 

No. of regions under 
consideration 

NR1 

1 

(13) 

2. 

No. of system terminations, 
no. of data bases, and no. of 
distinctive cities under 
consideration. 

N1, N7 , NCITY 

1 

(315) 

3. 

IDs for data bases 

NBASE(N7) 

1 

(3< 1X.A4) ) 

4. 

V-H Coordinates for cities 

IVERT{ NCITY) , IHORZN(NCITY) 

NCITY 

(33X.I5.2X, 15) 

5. 

ID, name, city index, addi- 
tional no. of terminals and 
traffic to/ from each data base 
for each system termination. 

INDXPT { N 1 ) , NAMEST ( H , N 1 ) , I ADD ( N 1 ) 
MAPADR(N1 ) ,TRAFD(N1 ,2,N7) 

a. N1 if N712 

b. 2N1 if NX>2 

(A4.1X.3A6.A4, 

I2,I4,4F10.2/ 

6F10.2 

6. 

No. of rate structures 

N2 

1 

(13) 

7. 

Rate application matrix 

IRATE J(N2,N2) 

N2 

(1012) 

8. 

Traffic density index and 
applicable rate structure for 
each city 

IRAND(NCITY,2) 

rNCITY/40] 

(8011) 

9- 

No. of applicable line types 

N3 

1 

(13) 
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Table 3-1 


Formats for Inout Data 
(Continuation 1) 


Item 

No. 

Item Description 

Names of Internal 
Variables/ Arrays 

Number of Cards 
Needed 

10. 

Name, capacity, utilization 
limit, usage and duplexing 
mode for each line 

LINAME(N3), LINCAP(N3), 
LINMIX(N3), IDUPLX(N3) 

N3 

11. 

No. of chargeable items 

N4 

1 

12. 

Names of chargeable items 

NAMEHW(N4) 

1 

13. 

Installation and recurring 
costs for chargeable items 
WRT rate structure, traffic 
density and duplexing mode 
for each line type 

AINSTC (N2,N3,N4,3,2,2) , 
RECRC (N2,N3,N4,3,2,2) 

2xN2xN3xN4x3x2 

14. 

Linear installation and 
recurring costs for lines 
WRT rate structure type, 
density, and duplex mode 

IFLAG(N2,N3),ANSTLN 
(N2,N3, 3,2,2) , RECRLN 
(N2,N3,3,2,16) 

a. N2x(2+N3x3x2) 

b. 2xN2(2+N3x 
3x2) if non 
linear 

15. 

Action indices for regions 

NR EG, NC ODE for IACTN 
( NR 1 , 2 ) 

Variable 


Formats 

(A6, IX, 16, IX, 
F3.2,2(1X,I1)) 

(13) 

(10{A6, IX)) 

(2F9.2) 

a. (4F9.2/I1/10F8.3) 

b. ( 4F9 . 2/1 1/1 0F8 . 3/ 

10F8.3) 

( 212 ) 
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Table 3-1 • Formats for Input Data 
(Continuation 2) 


Item Names of Internal Number of Cards 

No. Item Description Variables/ Arrays Needed Formats 


UO 

I 


16. No. of polling characters no. NPL(N3) , NAK(N3), NPLOH 
of NAK characters, no. of pol- <N3) NAK0H(N3) , MOH (N3) 

ling overhead characters, no TAMDM(N3), TAPD (N3) 

of NAK overhead characters, 
message overhead characters, 

Modem turnaround time, and 
other delay for each line type 


17. No. of message types 


NTYP 


18. Message name, input message 

length, output message length, 
input percentage and output 
percentage with priority 1 
and 2 


MSGNAM (NTYP), MSLIN 
(NT V P) MSGOVT(NTYP) , 
RATIO I (NTYP, 2) 

RATIO (NTYP, 2) 


19- Average CPU service time per CPUAVG 
transaction 

20. Preloading system terminations NCODE, NSTATE, NREGQ 
and/or preselecting regional 
centers 


21. System Cei,;~ 


NSCC1 


N3 


1 

NTYP 


1 


Variable 


1 


(514, 2F7 .5) 


(14) 

(A6,2(2I4,2F6.3) ) 


(F7.4) 

(I1,1X,A4,A5) 

(A4) 
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Table 3-1. Formats for Input Data 
(Continuation 3) 


Item 

No. 

Item Description 

Names of Internal 
Variables/ Arrays 

Number of Cards 
Needed 

Formats 

22. 

Total no. of messages per 
second and no. of requests 
made at the central switcher 

XSAC, NREQSW 

1 

(F8.5,I3) 

23. 

Limit on no. of terminals on 
a multi-dropped line, response 
time requirement and no. of 
CPU processors for computer 

NTERMS, TIMRBQ, MPHOC 

1 

(I3,F5.2,I2) 

24. 

°lot request 

MPLOT 

1 

(13) 
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Following is a list of run options for the STACOM program. 

(1) The user can preload system terminations to regions 
and/or preselect regional switching centers. 

(2) The user can select certain regions for which the 
optimization process will be performed. 

(3) Type of lines and chargeable items can be selectively 
chosen . 

(4) The user can put a limit on the number of terminals 
on a multidrop line as described and can limit the 
average terminal response time. 

(5) The number of central processor units in the central 
computer system can be 1, 2, or 4. 

(6) The Cal Comp plot can be skipped. 


3.3*3 Control Instruction and Sequences 

3.3.3. 1 Starting a Run . 

3.3*3- 1.1 Batch Mode . Following is a list of control statements 
required when running the STACOM program as a batch run; 

@RUN run-ID, account-no., project-ID, SUP-time, pages/cards 
@ASG , UP 100 

eSYM.P PUNCH$, ,plotter-ID 
@XQT file. STACOM 
(DATA) 

0BRKPT 100 
(3FREE, 100 

tSYM 100 , , printer-ID 
§FIN 

The RUN card gives the following information: designated run- 

ID, user's account number, project-ID, expected SUP-time usage and limited 
number of printer pages, and number of cards which may be generated from 
the run. Plotter- ID gives the logical ID of the CalComp pen plotter and 
file is the file which contains the absolute element of the STACOM 
program. Printer-ID gives the logical ID of the regular printer. DATA as 
shown is the input data described in Paragraph 3.2.1; the user should 
arrange the data in the same order. When all of these data Items are in 
order and ready, the deck can be submitted to the operator at the computer 
site for processing. 


3.3.3. 1.2 Demand Mode . If program execution is to be performed via a 
demand terminal, the user can converse interactively with the program. 

The user may also run the program as a batch job by having all input data 
prepared and added after the §XQT statement. 
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Under the conversation mode, the user acts as a respondent 
who answers the requests for data made by the program. This mode of 
operation provides the user with some understanding of program progress 
A user can very often terminate a run before a complete set of input 
data is given. This is possible because the user has some knowledge 
of the progress being made. This capability can prevent the user from 
an unnecessary waste of time.. For example, if a run encounters a system 
which has more oversized distance data than allowed, a message from 
the program will be printed out on the terminal. The user will be 
alarmed by this fact and may decide to terminate the program run. 


3 *3.3.2 Run Progression. After receiving all of the required data, 
the program will perform all functions as designed and requested by the 
user whether a batch or a demand Job has been executed. The program will 
perform formation of regions, selection of regional switching centers, 
formation of a regional star network and its optimization if requested, 
and finally, formation and optimization of an interregional network. All 
of the desired output data will go to the alternate file, 100. 


3. 3. 3. 3 Normal Termination . When a STACOM program run proceeds 

successfully and terminates normally, the normal file unit 6 will contain 
two lj.nes of messages for each successful regional network optimization. 
These two lines are: 

(1) TRYLNK has been accessed for xxxxx times. 

(2) UPNETW has been accessed for xxxxx times. 

The first message indicates the number of subroutine calls to 
TRYLNK that have been made during the process of searching for a better 
network. The second message indicates the number of optimization cycles 
which the run has gone through before the optimization process stops. 

After a normal termination, the user can direct the output file 100 to a 
printer device and the punch card file to a CalCorap pen plotter if file 
PUNCH$ has been directed to an alternate file. 

3 *3- 3. 4 Aborting and Rec overing a Run . When a run encounters trouble 
resulting from incorrect input data, the user can use the normal aborting 
procedure to terminate its execution if it is a demand job. A statement 
of §§x aftc. Interrupting the line communication by pressing the BREAK key 
will terminate a program execution at any time. On the other hand, the 
EXEC-8 may abort a program execution when certain serious violations occur 
during its execution, e.g,, number of punch cards exceeding the limit on 
the run card. 

If a program run has been interrupted due to system outage, no 
recovery of the run is possible. 
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3-3-4 Program Listing 

A listing of the STACOM program elements is given in Appendix A. 


3-4 SAMPLE HUN 

To illustrate how STACOM can be run, a sample run is provided 
in the following subsections along with detailed explanations. 


3-4.1 Hun Stream 

The following list of control statements shows the typical 
batch mode run stream used to execute the STACOM program. 

@FiUN JJL , J6G3YL ,51928,20,90/ 1000 

eASG.UP 100 

SSYM.P PUNCH* fl 09 PLTF 

gXQT LEE. ST A COM 

elADD LEE. DATA 

0BRKPT 100 

SFREE 100 

eSYh,U 100,, T4 

6FIN 

The first control statement is a run request which specifies 
its run ID as j., j, identifies its account number as J6C»?YL, assigns 
project ID as 51928, requests a maximum of 20 minutes of SUP-time and 
finally asks for a limit of 90 printer pages anu 1,000 punch cards. The 
limits on SUP-time, number of printer pages and number of punch cards 
deserve some attention when making a run. If there is an underestimate in 
any of these three limits, the run may abort due to insufficient resource 
assignment . 


The second statement is used to assign an alternate FORTRAN 
output file as required by the program. It is intended to be a one-day 
f ile . 


Statement 3 requests the system to direct the punch card image 
file to the CalComp pen plotter with the name G9PLTF. 

Statement 4 is a command for executing the STACOM program 
which is designated with the element name STACOM in file LEE. 

The next statement asks the operating system to use the 
content of element DATA as its input data. 

Statements 6 and 7 are use: 1 to close file 100 and catalog it 
for later use. 

Statement 8 asks the operating system to send the printer file 
100 to an on-site low speed printer wic'i ID T4 . The U option retains the 
FORTRAN print, file after a :opy is p, in', id 
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The last statement terminates the run with a request for 
a detailed description of run charges and run history. The number 
of pages in the print file and the number of punch-card images are 
part of the data given by the accounting subsystem when a run terminates. 

When the same program is to be executed via a demand terminal, 
the content of element LEE. DATA can be divided into several individual 
elements plus certain key-in control statements. Essentially, however, 
the same amount of input data must be provided to succeed in running the 
program . 


3.4.2 Input 

As a specific example, Table 3-2 gives the list of data which 
have been used in analyzing the South Plains portion of Texas under the 
Council-of -Governments structure . 

Encircled numbers have been written on the left hand side so 
that Table 3-2 and Table 3-1 are made compatible. Data associated with 
each encircled number in Table 3-2 corresponds to the data item with the 
same index in Table 3-1 . Items 1 and 2 indicate that the run is concerned 
with 1 region case, a total of 25 system terminations, 4 data bases, and 
a total of 358 distinctive cities. Items 3 gives the IDs for locations of 
those four data bases, and item 4 lists the names of all 358 cities which 
have distinctive V-H coordinates (four digit integers). Since the number 
of data bases is greater than 2, two input cards are needed for each 
system termination; therefore a total of 50 cards are needed as listed 
under item 5- Since there is only one rate structure, one card is needed 
for rate application matrix (see items 6 and 7). 

Item 8 shows the traffic density and rate application table 
for which 9 cards are required. Items 9 and 10 indicate that only 3 type 
of lines (with rates 1200 bps, 2400 bps, and 4800 bps) are considered; 0.7 
is the line utilization limit for all of them. Three chargeable items are 
applicable as shown in items 11 and 12. Item 13 is somewhat complicated, 
the following explanation should enable the reader to understand it. 

These 108 data cards are divided into 3 groups with the first group given 
to the first line type, i.e., 1200 bps, and so on. 
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Table 3-2. Input Data for the Example Run 

5192fi*STACOM<0) .INPUT/0777 


1 (TV >1 

2 0 *25 4 358 

3 (7V^-»AAM DDDD SS5S HHHH 


4 ^ffi^PALPStlNE 

ANDERSON 

6556 

3750 

5 

Andrews 

Andrews 

8897 

4993 

6 

LUFKIN 

ANGELINA 

8575 

3561 

7 

ROCKPORT 

ARANSAS 

4405 

3694 

8 

ARCHER CITY 

archer 

8306 

4410 

9 

joupdanton 

ATASCOSA 

9332 

4032 

to 

BELLVILLE 

AUSTIN 

8964 

3710 

11 

MULESHOE 

bailey 

8518 

6157 

12 

SEYMOUR 

BAYLOR 

8437 

4516 

13 

BEEVIULE 

BFF 

9378 

3650 

14 

BELTON 

BELL 

8827 

4010 

15 

FORT HOOD 

bell 

8838 

4070 

16 

harker heights 

BFLL 

0838 

4063 

17 

KILLEEN 

BEU. 

8038 

4063 

18 

NOLANVTLLE 

bell 

8838 

4038 

19 

temple 

bell 

8818 

399? 

20 

ALAMO HEIGHTS 

BEXAR 

9? PS 

4062 

21 

FT SAM HOUSTON 

BFXAR 

9225 

4062 

22 

LEON VALLEY 

BEXAR 

9223 

40°? 

23 

SAN ANTONIO 

BEXAR 

9225 

4062 

24 

UNIVERSAL CITY 

BFXAR 

9167 

4037 

25 

CLIFTON 

bosouf 

8690 

4089 

26 

MERIDIAN 

BOSQUE 

6666 

4112 

27 

Texarkana 

BOWIE 

8111 

36?6 

26 

ALVIN 

BRAZORIA 

8996 

34 R 6 

29 

angleton 

BPAZOPlA 

90^9 

3499 

30 

CLllTE 

BRAZORIA 

9081 

34*7 

31 

FRFEPOPT 

BPAZOPlA 

9096 

3466 

32 

LAKE JACKSON 

BPAZOPlA 

goo! 

3467 

33 

PEARLAND 

Brazoria 

0970 

3506 

34 

BRYAN 

brazos 

8887 

37P6 

35 

COLLEGE STATION 

BRA20S 

8027 

3766 

36 

Al PINE 

BREWSTER 

936“ 

5057 

37 

FALFURRIAS 

BROOKS 

9645 

3627 

36 

BROWNWOOO 

BROWN 

8797 

4327 

39 

CALDWELL 

BURLESON 

8080 

3634 

40 

port Lavaca 

CALHOUN 

92S8 

3665 

41 

BROWNSVILLE 

CAMERON 

9061 

3606 

42 

HARLINGEN 

CAMERON 

9820 

3663 

43 

PORT ISABEL 

CAMERON 

9007 

3665 

44 

SAM BENITO 

CAMERON 

9026 

3646 

45 

LINDEN 

CASS 

8217 

364 3 

46 

DIMMIT 

CASTRO 

8427 

5109 

47 

anahuac 

chambers 

8084 

3416 

48 

JACKSONVILLE 

CHEROKEE 

8498 

3709 

49 

CHILDRESS 

Childress 

8320 

4743 

50 

MORTON 

COCHRAN 

8628 

5129 

51 

ROnERT LEE 

COKE 

8807 

4603 

52 

Coleman 

COLEMAN 

8004 

44 13 

53 

FRISCO 

COLLIN 

83fi4 

4069 

54 

MCKINNEY 

COLLIN 

8340 

4036 

55 

PLANO 

COLLI" 

8383 

4037 

56 

WELLINGTON 

collngswh 

8240 

4776 
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Table 3-2. Input Data for the Example Run 
(Continuation 1) 


57 

Columbus 

COLORADO 

9032 

3780 

SB 

NEW BRAUNFELS 

COMAL 

9145 

4018 

59 

COMANCHE 

COMANCHE 

8735 

4278 

60 

GAINESVILLE 

COOKE 

8289 

8162 

61 

COPPERAS COVE 

CORYELL 

8844 

40=2 

62 

gatesville 

CORYELL 

8771 

4089 

63 

crane 

CRANE 

9073 

889ft 

64 

OZonA 

CROCKETT 

9148 

8682 

65 

oalhart 

DALLAM 

8129 

*289 

66 

ado i son 

DALLAS 

8804 

4048 

67 

cedar hill 

DALLAS 

8885 

4087 

66 

DALLAS 

DALLAS 

8836 

4034 

69 

DESOTO 

DALLAS 

8878 

8030 

70 

DUNCANVILLE 

DALLAS 

8869 

4084 

71 

farmers branch 

DALLAS 

8814 

8062 

72 

garland 

DALLAS 

8800 

4018 

73 

grand prairie 

DALLAS 

8888 

8066 

74 

highland park 

DALLAS 

8836 

8038 

75 

IRVING 

DALLAS 

8840 

8068 

76 

LANCASTER 

DALLAS 

8870 

8013 

77 

MEf SUITE 

DALLAS 

8826 

4000 

70 

RICHARDSON 

DALLAS 

8399 

4035 

79 

SEAGOVILLE 

DALLAS 

8847 

3980 

BO 

UNIVERSITY PARK 

DALLAS 

8836 

4034 

01 

lamesa 

DAWSON 

8779 

4919 

82 

HEREFORD 

DEAF SMTH 

8376 

5143 

83 

DENTON 

OENTON 

8372 

4127 

84 

LEWISVILLE 

DFNTON 

8398 

4089 

85 

cufro 

DEWITT 

9290 

3823 

06 

SPUR 

DICKENS 

8560 

4784 

87 

SAN DIEGO 

DUVAL 

9542 

3888 

88 

Eastland 

EASTLAND 

8649 

8352 

09 

ODESSA 

ECTOR 

8982 

4930 

90 

ENMIS 

ELLIS 

8518 

3970 

91 

WAYAHACHie 

ELLIS 

8517 

4011 

92 

EL PASO 

EL PASO 

9231 

5655 

93 

STFPHENVILLE 

ERATH 

8645 

823? 

94 

marlin 

falls 

8739 

3931 

95 

BONHAM 

FANNIN 

8238 

39°6 

96 

ROBY 

FISHER 

8679 

4646 

97 

floydada 

FLOYD 

8886 

4902 

98 

FAIRFIELD 

FREESTONE 

8602 

3830 

99 

PEARSALL 

FRIO 

9378 

8129 

100 

Richmond 

FT BEND 

9009 

3598 

101 

ROSFNBERG 

FT BEND 

9009 

35°B 

102 

SEMINOLE 

CAINE* 

8822 

5080 

103 

frienoswooo 

GALVESTON 

8969 

3489 

104 

GALVESTON 

GALVESTON 

8985 

3397 

1.05 

HITCHCOCK 

GALVESTON 

8992 

3441 

106 

LA MARQUE 

GALVESTON 

8975 

3424 

107 

league city 

GALVESTON 

896' 

3468 

108 

TEXAS CITY 

GALVESTON 

8975 

3424 

109 

POST 

GARZA 

8650 

4854 

110 

FREDERICKSBURG 

GILLESPIE 

9079 

419ft 

111 

GOLIAD 

GOLIAD 

9301 

3807 

112 

GONZALES 

GONZALES 

9137 

3884 

113 

PAMPA 

GRAY 

8148 

495? 
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Table 3-2. Input Data for the Example Run 
(Continuation 2) 


114 

DENISON 

GRAYSON 

B2PS 

4069 

115 

SHFRMAN 

GRAYSON 

8253 

4(1?2 

116 

gladewaTer 

GREGG 

BBS 1 * 

3608 

117 

KtLGORE 

GREGG 

8379 

3674 

118 

LONGVIEW 

GRFGG 

8348 

3660 

119 

navasota 

grimes 

BB6S 

3"M5 

120 

seguin 

GUADALUPE 

0161 

3981 

121 

PLAtNVIEW 

HALE 

e«6S 

4981 

122 

HAMILTON 

HAMILTON 

8744 

4177 

123 

SPEARMAN 

HANSFORD 

8026 

5037 

124 

quamah 

HARDEMAN 

8324 

4654 

125 

KOlINTZE 

HARpIM 

8735 

3405 

126 

SILSBEE 

hardin 

0730 

3380 

127 

BAYTOWN 

HARRIS 

8916 

3466 

128 

BELLA I RE 

HARRIS 

8938 

3536 

129 

DEEP PARK 

HARRIS 

8929 

3491 

130 

GALENA park 

HARRIS 

8938 

3536 

131 

HOUSTON 

HARRIS 

8938 

3536 

132 

HUMBLE 

HARRIS 

8881 

3540 

133 

JACINTO CITY 

HARRIS 

8938 

3536 

134 

jersey village 

HARRIS 

89?5 

3581 

135 

KATY 

HARRIS 

8965 

3618 

136 

LA PORTE 

HARRIS 

8829 

3470 

137 

PASADENA 

HARRIS 

8938 

3536 

138 

seabrook 

HARRIS 

8945 

346? 

139 

SOUTH HOUSTON 

HARRIS 

8938 

3536 

140 

SOUTHS IDE PLACE 

HARRIS 

8938 

3536 

141 

SPRING VALLEY 

HARRIS 

8938 

3536 

142 

TOMRALL 

HARRIS 

8889 

3609 

143 

VILLAGE 

HARRIS 

8938 

3536 

144 

WEBSTER 

HARRIS 

8967 

3468 

145 

WEST UNI V PL 

HARRIS 

8938 

3536 

146 

marshall 

HAPRSN 

8311 

360? 

147 

HASKELL 

HASKELL 

8555 

4567 

148 

SAN MARCOS 

HAYS 

90Q6 

4001 

149 

CANADIAN 

HEMPHILL 

8036 

488? 

150 

ATHENS 

HENDERSON 

8484 

3826 

151 

donna 

hidalgo 

9840 

3728 

152 

EDINBURG 

hidalgo 

9830 

3758 

153 

HIDALGO 

hidalgo 

9856 

3764 

154 

MCALLEN 

hidalgo 

9856 

3764 

155 

MERCEDES 

hidalgo 

9845 

3701 

156 

MISSION 

hidalgo 

9861 

3781 

157 

PHARR 

hidalgo 

0854 

3754 

158 

WESLACO 

hidalgo 

9847 

3716 

159 

HILLSBORO 

hill 

8612 

4026 

160 

levelland 

HOCKLEY 

8629 

5053 

161 

sulphur SPRINGS 

HOPKINS 

8281 

3861 

162 

BIG SPRING 

HOWARD 

8847 

4800 

163 

COMMERCE 

HUNT 

8280 

3921 

164 

GRFFNVILLE 

HUNT 

8317 

3949 

165 

borger 

hutchnson 

8146 

5033 

166 

JACKSBORO 

JACK 

8442 

4303 

167 

EDNA 

JACKSON 

9186 

3698 

168 

BEAUMONT 

Jefferson 

8777 

3344 

169 

NEnERLAND 

JEFFERSON 

6789 

3316 

170 

PORT ARTHUR 

JEFFERSON 

8806 

3298 
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Table 3-2. Input Data for the Example Run 
(Continuation 3) 


171 

ALICE 

JIM WFU.S 

9SS? 

3855 

17a 

BURLESON 

JOHNSON 

8522 

4103 

173 

clfrurne 

JOHNSON 

8563 

41ft? 

174 

ANSON 

JONES 

8647 

4*63 

175 

STAMFORD 

JONES 

6603 

456? 

176 

KARNES CITY 

KARNES 

92R4 

391* 

177 

KAUFMAN 

KAUFMAN 

844? 

3936 

176 

TERRELL 

KAUFMAN 

8410 

3943 

179 

80FRNE 

KENDALL 

9168 

4133 

180 

JAYTON 

KENT 

8589 

471ft 

181 

KEPPVILLE 

KERR 

9143 

42?6 

162 

JUNCTION 

KIMBLE 

9097 

4373 

163 

KINGSVILLE 

KLEBERG 

9566 

3ftni 

164 

benjamin 

KNOX 

8472 

46f»9 

165 

PARIS 

LAMAR 

8173 

3R97 

186 

LITTLEFIELD 

LAMB 

8558 

5ftfo 

167 

OLTON 

LAMB 

8490 

*0*4 

186 

LAMPASAS 

LAMPASAS 

8075 

4137 

189 

HALLETTSVILLE 

LAVACA 

9114 

37ft9 

190 

yoakum 

LAVACA 

9157 

3ftl4 

191 

CENTERVILLE 

LEON 

8682 

376ft 

192 

CLEVELAND 

liberty 

8601 

354ft 

193 

liberty 

liberty 

8835 

3463 

194 

mevta 

limestone 

8635 

3ft ft 9 

195 

georoe west 

LIVE OAK 

9419 

391ft 

196 

lubpock 

LUBBOCK 

8598 

496? 

197 

SLATON 

LUBBOCK 

8616 

49J 6 

198 

tahoka 

LYNN 

8680 

4924 

199 

MAPISONVILLE 

MADISON 

8740 

3733 

200 

Jefferson 

MARION 

8267 

361ft 

201 

BAY CITY 

MATAGORDA 

9135 

3*76 

202 

EAGLE PASS 

MAVERICK 

9505 

4370 

203 

BRADY 

MCCULLOCH 

8938 

4344 

204 

BELLMEAO 

MCLENNAN 

8706 

3993 

205 

bevfrly hills 

MCLENNAN 

8706 

3993 

206 

WACO 

MCLENNAN 

8706 

3993 

207 

WOODWAY 

MCLENNAN 

8706 

3993 

206 

Hondo 

MEDINA 

9285 

4174 

209 

menard 

MENARD 

9011 

44f>7 

210 

midland 

MIDLAND 

0934 

4 ftftft 

211 

CAMFRON 

MILAM 

0835 

39m 

212 

ROCKDALE 

MILAM 

88R7 

3ft9fl 

213 

COLORAOO CITY 

mitchfll 

8701 

4706 

214 

BOWIE 

MONTAGUE 

8351 

4?75 

215 

MONTAGUE 

MONTAGUE 

03?3 

4261 

216 

CONROE 

MONTGOMRY 

883? 

36ftft 

217 

OumaS 

MOORE 

8141 

*144 

216 

0A1NGERFIELD 

MORRIS 

8240 

3784 

219 

NACOGDOCHES 

NACOGDCHS 

8515 

3*69 

220 

CORSICANA 

NAVARRO 

0593 

39? 1 

221 

sweftwater 

NOLAN 

8737 

4632 

222 

CORPUS CHRIST! 

NUFCES 

9475 

3739 

223 

ROOSTOWN 

NUECES 

9406 

37ft6 

224 

PEPRYToN 

OCHILTREF 

796? 

4987 

225 

VEGA 

OLDHAM 

8?92 

51^7 

226 

ORANGE 

ORANGF 

8746 

32ft 1 

227 

MINFRAL wflls 

’’ARKER 

85?0 

4?M 
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Table 3-2. Input Data for the Example Run 
(Continuation *0 


22B 

CApTHAGE 

PANOLA 

B»85 

3564 

229 

Weatherford 

PARKER 

8508 

4206 

230 

fabwell 

PARMER 

8503 

5221 

231 

FRIONA 

PARMEP 

04^2 

5165 

232 

FOPT STOCKTON 

PECOS 

9201 

4954 

233 

amapiluo 

POTTER 

8266 

5076 

234 

CANYON 

RANDALL 

83J7 

5075 

235 

CLARKSVILLE 

RED RIVER 

8147 

3609 

236 

PECOS 

RFEVES 

9136 

5101 

237 

BI<: LAKE 

REGAN 

906? 

4723 

236 

HEAPNE 

ROBERTSON 

8802 

3646 

239 

ROCKWALt- 

Rockwall 

8384 

3969 

240 

BALLINGER 

RUNNELS 

8895 

44*6 

241 

HENDERSON 

RUSK 

84?n 

364 0 

242 

ARANSAS PASS 

SAN PTRCO 

9437 

3700 

243 

GREGORY 

SAN PTRCO 

9455 

3731 

244 

INGLESIOE 

SAN PTRCO 

9447 

3711 

245 

PORTLAND 

SAN PTRCO 

9455 

3731 

246 

stnton 

SAN PTRCO 

9436 

3^77 

247 

ELOORAdO 

SCHLEICHR 

9076 

4547 

246 

SNYDER 

SCURRY 

B71B 

4737 

249 

STRATFORD 

SHERMAN 

8049 

51*4 

250 

TYLER 

SMITH 

8417 

3744 

251 

brfckenrioge 

STEPHENS 

8582 

4344 

252 

sterling city 

STERLING 

8900 

4666 

253 

aspermont 

stcnewall 

8589 

4650 

254 

TUHA 

SWISHFR 

8397 

5016 

255 

Arlington 

TARRANT 

8472 

40P5 

256 

BEDFORD 

taprant 

8447 

40*2 

257 

COLLEY VILLE 

TARRANT 

8447 

4117 

256 

CROWLEY 

TAPRANT 

8518 

411ft 

259 

EULESS 

TARRANT 

8441 

4002 

260 

FORREST hill 

taprant 

8479 

4122 

261 

FORT WORTH 

TARRANT 

8479 

412? 

262 

grapevine 

TARRANT 

84?5 

40*4 

263 

haltom city 

TARRANT 

647R 

4122 

264 

hurst 

taprant 

8447 

4U7 

265 

lake worth 

tarrant 

8471 

4156 

266 

no RICHLAND hls 

taprant 

8447 

4117 

267 

RICHLAND HILLS 

tarrant 

8479 

4122 

266 

SOUTHLAKE 

tarrant 

8425 

4004 

269 

WHITE SETTL^NT 

TARRAMT 

8485 

4153 

270 

apilenf 

taylor 

8698 

4513 

271 

SANDERSON 

teprell 

9333 

4616 

272 

BROWNFIELO 

terry 

8705 

5007 

273 

mt PLEASANT 

titus 

8234 

3755 

274 

SAN ANGELO 

TOM GREEN 

8944 

4563 

275 

AUSTIN 

TRAVIS 

9005 

39*6 

276 

GILMER 

UPSHUR 

8317 

3716 

277 

rankin 

UPTON 

9084 

4611 

276 

UVALDE 

UVALDE 

9357 

4279 

279 

DEL RIO 

VAL VERDE 

9399 

44*0 

280 

CANTON 

VAN ZANDT 

8414 

3656 

261 

VICTORIA 

VICTORIA 

9245 

3746 

282 

HUNTSVILLE 

WALKER 

8758 

365? 

283 

HEMPSTEAD 

WALLER 

8923 

3601 

284 

MONAHANS 

WARD 

9066 

5005 
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Table 3-2. Input Data for the Example Run 
(Continuation 5) 


285 

BRpNHAM 

washingtn 

8932 

375? 

286 

LAREDO 

WEBB 

9681 

4099 

287 

pierce 

WHARTON 

9115 

3649 

288 

WHARTON 

WHARTON 

9078 

3630 

289 

shamrock 

wheeler 

8170 

4808 

2^0 

burkburnett 

WICHITA 

82Q0 

444(1 

291 

WICHITA FALLS 

WICHITA 

8326 

4413 

292 

VEPNON 

WILBAPGER 

8326 

4567 

293 

raymondville 

WILLACY 

9768 

3703 

294 

FLORESVILLE 

WILSON 

9261 

3979 

295 

KERMIT 

WINKLER 

9024 

5060 

296 

DECATUR 

WISE 

8399 

4205 

297 

WINNSBORO 

WOOD 

8295 

3794 

298 

DENVER CITY 

YOAKUM 

8781 

5088 

299 

graham 

YOUNG 

8492 

4365 

300 

olney 

YOUNG 

8450 

4414 

301 

CRYSTAL CITY 

ZAVALA 

9466 

4246 

302 

ARaMSAS pass 

ARANSAS 

9437 

3700 

303 

PLEASANTON 

ATASCOSA 

9320 

4027 

304 

BANDERA 

BANDERA 

9205 

4190 

305 

BASTROP 

BASTROP 

9O0 7 

3<»09 

306 

marble falls 

BURNET 

BQflO 

4115 

307 

LOCKHART 

caldwfll 

9077 

3954 

308 

luling 

CALDWELL 

9117 

3033 

309 

BAIRD 

CALLAHAN 

868 n 

4450 

310 

PITTSBURG 

Camp 

8264 

3742 

311 

PANHANDLE 

CARSON 

0210 

50°o 

312 

ATLANTA 

CASS 

8182 

3618 

313 

RUSK 

CHEROKEE 

8515 

367? 

314 

HENRIETTA 

CLAY 

8323 

4354 

315 

CR058YT0N 

CROSBY 

8548 

4862 

316 

CARROLLTON 

DALLAS 

8410 

4066 

317 

COOPER 

DELTA 

8241 

3806 

318 

CARRIZO SPRS. 

DIMMIT 

950 0 

4240 

319 

CISCO 

EASTLAND 

0662 

43^7 

320 

LA GRANGE 

FAYETTE 

9016 

381.3 

321 

MT VERNON 

franklin 

8246 

3801 

322 

anoerson 

GRIMES 

8836 

3708 

323 

MEMPHIS 

HALL 

8287 

4821 

324 

ALAMO 

HIDALGO 

9854 

3754 

325 

GRANBURY 

HOOD 

0572 

4178 

326 

CROCKETT 

HOUSTON 

0634 

3685 

327 

STINNETT 

HUTCHNSON 

8117 

5054 

328 

JASPER 

JASPER 

8603 

3300 

329 

GROVES 

JEFFERSON 

8789 

3.316 

330 

PORT NECHES 

JEFFERSON 

8789 

3316 

331 

COTULLA 

LASALLE 

9476 

4120 

332 

G I DOINGS 

LEF 

8968 

3848 

333 

grofsbeck 

LIMESTONE 

0671 

3006 

334 

LLANO 

llano 

8970 

4199 

335 

NEWTON 

NFWTON 

0600 

3353 

336 

BRTOGE CITY 

ORANGE 

8774 

3295 

337 

VIDOR 

OPANGF 

8761 

3334 

338 

PALO PINTO 

PLO PINTO 

8541 

4291 

339 

LIVINGSTON 

POLK 

8716 

3543 

340 

REFUGIO 

Rffugio 

9365 

3757 

341 

FRANKLIN 

Rorertson 

0766 

3039 
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Table 3-2 . Input Data for the Example Run 
(Continuation 6) 


342 

HEMPHILL 

SABINE 

85|1 3413 




343 

SAN AUGUSTIME 

SN AUGUST 

8491 3471 




344 

coldspring 

SN JAClNT 

8764 3567 




345 

SAN SAGA 

SAN SABA 

8886 4242 




346 

MATHIS 

SAN PTRCO 

9448 3848 




347 

CENTER 

Shelby 

8443 3505 




348 

RIO grande cty 

Starr 

9861 3687 




349 

benrrook 

Tarrant 

8499 4140 




350 

EVFRMAN 

TARRANT 

8505 4110 




351 

RIVEROAKS 

TARRANT 

8479 412? 




352 

GR0VET0N 

TRINITY 

8661 3605 




353 

W00DVILLE 

TYLER 

8664 3458 




554 

EL CAMPO 

WHARTON 

9115 3649 




355 

wheeler 

WHEELER 

8126 4824 




356 

IOWA PARK 

WICHITA 

8327 4445 




357 

GEORGETOWN 

williamso 

8927 4014 




358 

TAYLOR 

williamso 

8922 3962 




359 

QUITMAN 

WOOD 

8340 3806 




360 

PLAINES 

YOAKUM 

8735 5105 




361 

ZAPATA 

ZAPATA 

9786 4009 




362 (T) — * A2LI MULESHOE PD 

A 

7*35 

19.23 

.00 

.00 

363 

.00 .00 

.00 

• 00 


364 

AZKK MORTON SO 

47 

4-38 

10.58 

• 00 

.00 

365 

.00 .00 

.00 

• 00 


366 

AZKW SPUR PD 


6.28 

17.80 

• 00 

• or 

367 

.00 .00 

,00 

• 00 


368 

AZX7 FLOYDADA SO 

94 

5-60 

11.91 

.00 

.00 

369 

.00 .00 

,00 

• 00 


370 

AZU> POST SO 

106 

2-86 

8.16 

• 00 

*00 

371 

.00 ,00 

,00 

• 00 



372 

AZLA PLaTNVIEW PD 

118 

25.27 

55.61 

• on 

• no 

373 

.00 .00 

.00 

• 00 


374 

AZLp PLATNVIEW SO 

118 

7.67 

14.67 

• on 

.no 

375 

.00 .00 

.00 

• no 


376 

azld LEVELLAND pd 

157 

10.45 

27.80 

.00 

.00 

377 

.00 ,00 

.00 

.00 


378 

AZLC LITTLEFIELD PD 

1B3 

8.87 

2t,«»4 

.00 

.on 

379 

,00 .00 

.00 

♦ on 


380 

AZKA LITTLEFIELD SO 

183 

4.57 

11.05 

•on 

.00 

381 

.00 .00 

.00 

• on 


382 

AZTi OLTON PD 

164 

5.36 

16*01 

«oo 

• on 

3B3 

*00 . OL 

.00 

• 00 



384 

AZgl LUrROCK DPS 

193 

31.12 

98*58 

*00 

*no 

385 

.00 .00 

.00 

• 00 


386 

AZLK LUBBOCK PD 

193 

242.28 

340*68 

*00 

,00 

387 

.00 .00 

,00 

• 00 

388 

AZLl LUBBOCK SO 

193 

39.61 

59.13 

.00 

.00 

389 

.00 .00 

.00 

• on 


390 

AZLP SLATON po 

194 

10*01 

23.71 

.00 

.00 

391 

.00 .00 

,00 

.00 


392 

AZLj TAHOKA PD 

195 

5.72 

17.21 

*00 

.no 

393 

.00 .00 

.00 

• 00 


394 

AZKS TAHOKA SO 

195 

4.03 

9,94 

• 00 

.00 

395 

.00 .00 

.00 

• 00 



396 

azlf brownfield po 

269 

17.09 

4n.8Q 

• 00 

.00 

397 

.00 (00 

.00 

• 00 


398 

azlf BROWNFIELD so 

269 

4.03 

8.36 

.00 

• no 
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Table 3-2. Input Data for the Example Hun 
(Continuation 7) 


399 

.00 .00 

• 00 

.00 




400 

AZLn DENVER CITY PO 

295 

7.39 

20.87 

.00 

.00 

401 

.00 .oO 

• 00 

.00 




402 

NAAE muleshoe s.o. 

8 

1.66 

5*26 

.00 

.00 

403 

.00 .00 

• 00 

.on 




404 

NABS CRoSBYTON S.O. 

312 

1.66 

5*26 

• 00 

.00 

405 

.00 .00 

• 00 

.00 




406 

nacg levelland s.o. 

157 

2.68 

8.48 

• 00 

.00 

407 

.00 .00 

• 00 

.00 




408 

NAFA PLAINES S.O. 

357 

1.53 

4*86 

*00 

.00 

409 

.00 .00 

• 00 

.00 




410 

AAA. >USTIN SWITCHER 

272 

.0 

• 0 

• 0 

.n 

411 

.0 .0 

.0 

.0 

• 0 



412 

^©-*1 







413 ® — >1 

414 (»)->10l0l0l0lOlOlOl010lOlli0lolH011l0ltM01H0l0101110lU0l0101011lntll0t UftlOlUllft 

415 loioioioioiHoiotoioioioioioioiotoiOtoioioioinioiiioioiniotoinifttnioioiMotnioii 

416 loiaioioioiitoionioioifiioinioiouioioioiiioioioiiioioioiitnini nei mini in iom 

417 loioioloioioioilioiotoloioioioioioioioioioioinioioiotoiuuniiioioiminininmi 

418 liintoiomoiiioioioioioioioiUoioioi omoi lioinioioiiioioiominii ioi urn oirn nm 

419 loini lioiotoiiioioiiioiouioiomiiiiiioiomoioioioioioiiiiiiioioinioini oini oin 

420 lointololoioliioioioiollioiololllollioinloioioioioiotltoioi 111111 0101 010101 111 10 

421 1011 tllomotollliioiolotoioioioioioiotoioioioioioioioinil mmol 0 101 01M 010! 010 

422 loiniololoioioioioioioloilioloioioiotoioioioioioioiotoloioiotolnioioioimoio 

423 © >3 I3N3=3* 1.2. * 150. 1200*2400 

424 ® — M.2K8 1200 .7 1 1 

425 2.4KB 2400 .7 1 1 

426 _ 4.8KB 4800 .7 1 1 

427 JH) * 3 ON4=3 AS NO. OF H/W UNITS ASSOCIATE WITH FACH STS. TEMN. 

428 © — >SER.T. MODEM DROP ONAMES 


429 Qy 

— >10. 

10. 

430 

10. 

10. 

431 

15. 

15. 

432 

15. 

15. 

433 

10. 

10. 

434 

10. 

10. 

435 

15. 

15'. 

436 

l5» 

15. 

437 

10. 

10. 

438 

10. 

10. 

439 

15. 

15. 

440 

15. 

15. 

441 

50. 

SO. 

442 

50 1 

SO. 

443 

22. 

22. 

444 

22. 

22. 

445 

50. 

50 * 

446 

50* 

50. 

447 

22# 

22. 

448 

22. 

22. 

449 

50. 

50* 

450 

50. 

50. 

451 

22. 

22. 

452 

22* 

22. 

453 

0. 

0* 

454 

0. 

o. 

455 

10. 

10* 
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Table 3-2. Input Data for the Example Run 
(Continuation 8) 


456 

10* 

10 

457 

0. 

0 

458 

0* 

0 

459 

10. 

10 

460 

10. 

10 

461 

0. 

0 

462 

Of 

0 

463 

10. 

10 

464 

10. 

10 

165 

10. 

10 

466 

10. 

10 

467 

15. 

15 

468 

15. 

15 

469 

10. 

10 

470 

10. 

10 

471 

IS. 

15 

472 

IS. 

15 

473 

10. 

10 

474 

10. 

10 

475 

15. 

15 

476 

IS. 

15 

477 

100. 

100 

476 

100. 

100 

479 

54. 

54 

480 

54. 

54 

481 

100. 

100 

482 

100. 

100 

483 

54. 

54 

484 

54. 

54 

485 

100. 

100 

486 

100. 

100 

487 

54. 

54 

486 

54. 

54 

489 

0. 

0 

490 

0. 

0 

491 

10. 

10 

492 

10. 

10 

493 

0. 

0 

494 

0. 

0 

495 

10. 

10 

496 

10, 

10 

497 

0. 

0 

498 

0. 

0 

499 

10, 

10 

500 

10. 

10 

501 

10. 

10 

502 

10* 

10 

503 

15. 

15 

504 

15. 

15 

505 

10, 

10 

506 

10. 

10 

507 

15. 

15 

508 

15. 

15 

509 

10, 

10 

510 

to. 

10 

511 

15. 

15 

512 

15. 

15 
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Table 3-2. Input Data for the Example Hun 
(Continuation 9) 


513 

100* 

100* 




514 

100. 

100. 




SIS 

135. 

135. 




516 

135. 

135. 




517 

100. 

ioo; 




518 

100. 

too* 




519 

135. 

135* 




520 

135. 

135* 




521 

100. 

100. 




522 

100. 

100. 




523 

135. 

135* 




524 

135. 

135. 




525 

0. 

0* 




526 

0. 

o. 




527 

10. 

10* 




528 

10. 

10. 




529 

0. 

0* 




530 

0. 

0. 




531 

10. 

io; 




532 

10. 

10* 




533 

0. 

0. 




534 

0* 

O'* 




535 

10. 

10. 




536 

10. 

10. 




537 © — M QLINEAR FOR 1200 8AUH 

LINF 

538 

900. 

*0 

900. 


*0 

539 

1. 

3. 

1. 


3. 

540 

900. 

• 0 

900. 


• 0 

541 

1. 

3* 

1. 


3. 

542 

900. 

.0 

900* 


*0 

543 

1. 

*6 

1. 


• 0 

544 

1 QLINEAR FOR 2900 BAUD 

LINE 

545 

900. 

.0 

900. 


.0 

546 

i. 

3. 

1* 


3* 

547 

900» 

• 0 

900. 


.0 

548 

1. 

3. 

1* 


3. 

549 

900. 

.0 

900. 


*0 

550 

1. 

• 6 

1* 


.0 

551 

i QLINEAR FOR 9800 BAUD 

LINE 

552 

900* 

• 0 

900. 


• 0 

553 

1* 

3. 

1. 


3* 

554 

O00. 

.0 

900. 


.0 

555 

1* 

3. 

1. 


3* 

556 

900 • 

• 0 

900. 


• 0 

557 

1. 

.6 

1. 


• 0 

558 ©— >1 2 





559 

0 0 





560 

([?) > 3 2 

o o a 

*008 

*0 


561 

3 2 

0 0 8 

• 008 

*0 


562 

3 2 

0 0 8 

*050 

• 0 


563 ® »lt 





564 

Q?)--*LlOR 35 

300 4.26 

3.94 

0 

0 

565 

TCIC 60 

8615.25 

14*47 

0 

0 

566 

AOM 500 

500 3.62 

3.62 

0 

0 

567 

G-CODE 300 

300 .13 

8*43 

0 

0 

568 

CCH 426 

459 5.70 

5*7fl 

0 

0 

569 

MVn 50 

175 9.34 

9.34 

0 

0 


.o 

.0 

.0 

.0 

.0 

.0 


.0 

.0 

.0 

.0 

.0 

*0 
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Table 3-2. Input Data for the Example Run 
(Continuation 10) 


# 5*0 INQ/NL 50 200 .45 .45 0 0 .0 .0 

r- 571 AOM/NU 300 300 .45 *0 0 0 .0 .0 

t : 572 NCIC 50 40 .0 9.21 0 0 .0 .0 

1 573 OB/pLS 90 50 3.49 1.1 0 0 .0 .0 

574 DB/ANT 90 50 .45 .45 0 0 .0 .0 

575 _ » .110 

576 © — *2 AAAA 1 OSWITCHER ASSJNGMEMT WITH T1.1X.A4.I5 

577 ^ 3 OTERMINATE SWITCHER ASSlONMfeNT 

578 f§>-*AAAA 8STATE CENTER 

579<gb— ->6.43 2 OTOTAL XSAC 8 RE9. AT THE AUSTIN SWttCHFR WITH F8.5 AI3 

580 J ®— >20 7.0 1 9TERM./LINE.RESP. TIME* MPROC WITH T3.F5.2.12 

581® »1 81 FOR PLOTV:r“ AND 0 FOR SHIPPING IT WITH 13 

CPU: .787 CTP:.091 SUPS: 17.904 

qbRxpt prints 
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Bach group is then divided into three subgroups of 12 cards, 
one for eaoh chargeable item. Bach subgroup is then divided into 3 units, 
4 cards per unit, according to the three types of traffic density combina- 
tions: high-high, high-low and low- low. Bach specific unit is then 

divided into two subunits of 2 cards. The first subunit is for instal- 
lation costs, and the second for reourring costs. The first card of 
eaoh subunit is for costs under half duplexing mode, and the second 
for costs under full duplexing mode. The first number of each card 
is the cost for the initial unit; the second for eaoh additional unit 
at the same location. 

Item 14 indicates that, in Texas, a linear costing function is 
used for all of the line service charges. The first card gives the 
installation charge as a function of distance, and the second the monthly 
recurring charge as a function of distance. Under each line type, the 
line cost is also given as a function of traffic density mix between two 
terminals. 


Item 15 indicates that an optimization process is requested 
after a star network is formed. 

Item 16 shows the line protocol characteristics for those 
three line types under consideration by providing data such as no. of 
polling characters, modem turn-around time, while item 17 and 18 give the 
message statistics. Item 19 indicates that a 110 milll-second is used as 
the average transaction service time needed in the central switcher of the 
system being studied. 

Item 20 pre-selects system termination AAAA as the RSC, and 
item 21 designates AAAA as the system centroid. 

The three remaining cards define the total traffic load at the 
central switcher, the multidrop line constraints, and a request for a 
Cal Comp plot at the end of each regional network optimization. 


3.4.3 Output 

After a normal termination from a STACOM program run, outputs 
from the printer and the CalCorap plotter should contain all data desired. 
This subsection describes the contents of these outputs obtained from the 
example run. 


3.4.3. 1 Printer Output . Data showing results from a normal program 
execution of the STACOM program are printed on a regular printer. Table 
3-3 shows the exact output obtained from running the STACOM program 
utilizing the set of input data as given in Paragraph 3.4.2. 

To facilitate the following discussions, the contents of Table 
3-3 are itemized as shown. 

Item 1 reminds the user that only one region has been con- 
sidered in this specific run. Item 2 shows the line protocol for each 
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Table 3-3. Printer Output from the Example Run 


(T> > THERE AHE 1 REG IOMS 

©-* 1200 POLL CHAK-= 3 NAK CHAR*= ? ROLL 0/H= « 

NA* O/HZ 0 MSG O/H- f\ 

MPSEMr .00R PPSEMs .non 

24QO POLL CHAR.= 3 NAK CHAR.= 3 POLt 0/H= U 

NAK O/H— 0 MSG 0/H= 6 

MPSEMs .00R PPSEM= .000 

4flUQ POLL CHAR-= 3 NAK CHAR •- 2 POLL 0/H= 0 

NAK O/H- 0 msg 0/H= fl 

MPSEMr .050 PP5FM= .000 

0 ►AVG* INPUT MSG KITH PfllO 1= 147.0 CHARS 

AVG, INHUT MSG 147.0 CHARS 

AVG, OUTPUT MSG */ H PRIO 1= 212.2 CHARS. 

AVG, OUTPUT MSG WITH PR I 02= .0 CHARS 

OVERALL AVG, MSG = 104.0 CHARS 

<*>——►2 AAAA 1 

3 0 


0 TRAFFIC MATRTXCBPS) 


TERM. 

A2LI 

A2KK 

AZKM 

A £XZ 

A?LO 

AZLA 

A7LB 

A2L0 

A7LC 

A/KA 

AZTI 

AZGL 

A TLX 

A2LL 

A7L* 3 

TRAP IN 

1.0 

.0 

• 8 

./ 

*4 

3*4 

1.0 

1.4 

1.2 

.6 

.7 

4*1 

32*3 

3.3 

1*3 

TRFOUT 

2.6 

1.4 

2.4 

1.6 

1*1 

7.4 

2.0 

3.7 

2.T 

1.6 

2*1 

13.1 

45.4 

T.4 

3.2 

TRAFIN 

.0 

.0 

.0 

.0 

*rr 

tP 

.0 

♦ 0 

.0 

.0 

• 0 

.0 

*n 

• 0 

#0 

TRFOUT 

.0 

.0 

.0 

.u 

• n 

.n 

.n 

.0 

,0 

.0 

*0 

.n 

• 0 

.0 

.0 

TRAFIN 

.0 

.u 

.0 

.u 

*o 

*0 

.n 

.a 

*0 

.n 

.0 

.0 

.0 

.0 

.0 

TRFOUT 

.0 

.U 

.0 

.0 


*0 

• n 

.0 

.0 

.0 

.0 

• 0 

,0 


.n 

TRAF IN 

.0 

.0 

.0 

*0 

.0 

*0 

.0 

,0 

,n 

• n 

.0 

vf. 

*0 

.0 

.0 

TRFOUT 

-0 

,0 

.0 

,f) 

*0 

♦ 0 

.0 

.0 

.0 

.0 

.0 

.0 

*0 

.0 

.0 
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Table 3-3 


Printer Output from the Example Run 
(Continuation 1) 


(£/ TOTAL TRAFFIC r^I^lMATrO FPOM <;Y«:* Tri?wi, {HTTc/^tfJ 


AfU 


A7KK 

.5*4 

A/K* 

.P37 

AZYZ 

. ftt7 

A/LO 

♦ 341 

A7LA 

3 . A69 

A7L0 

1*0? \ 

A/LH 

1 *393 

AZI C 

1.143 

A/*A 

.KOo 

*7Tt 

.as 

Tf^L 

U,14^ 

A/L* 

3?*!04 

A7I L 

5*2Pl 

AZLtJ 

1*334 

A7LJ 

• fbX 

AZKS 

-517 

AZLF 

?*?7« 

azlf 

.537 

A/LU 

# OA5 

HAAF 



*221 

mack 

*357 

-*afa 

.204 

AAA A 

.nno 




total traffic- 

Al.nn 








total TRAFFIC 

PFVTTWATFP TO 5YC;, 

TF° m M. tFIT5/5rri 



A?LI 

?.56u 

A/KK 

L- ^ J 1 

A/K*' 

2*373 

A?v? 

1.5AH 

A/Lf) 

1 .(l RO 

A7LA 

7-ui^j 

ftZLtf 

1.Q5* 

A/Ll) 

3*707 

A7I.C 

2.«?5 

AZ«A 

1*473 

A7TI 

* • 135 

A7KL 

13.141' 

A/LK 

45*424 

A71.L 

7*«AU 

azlq 

3.151 

>?LJ 

i? ■ 2S5 

A7KS 

1 . 335 

fl/LF 

5-45? 

AZLF 

1 *lis 

aZLU 

?.7ft3 

?JAAE 

• 'UL 

NAHK 

*701 

MAC A 

1.131 

NAFA 

.<344 

aaaa 

-non 


TOT^L TPAFF!C= ll' 4 * 3 a 
TOTAL SYSTEM T^AFFIC= 115,30 


77-53, Vol, IV 


Table 3-3. Printer Output from the Example Run 
(Continuation 2) 


POINT TO POINT niSTANCF MATRT* 


TERM. 

A7LH 

AZLL 

A7LK 

A7GL 

A7TI 

A7*A 

A7LC A7LO 

A7LB 

A*L* 

A710 

A7X7 

*?KW 

A7*K 

AZLI 

R3. 

b t * 

57. 

67. 

34. 

31. 

31. 44* 

KQ. 

54, 

105. 

B2. 

IIS. 

^6. 

AZKK 

bn* 

54. 

54. 

64, 

4*-*. 

?B. 

■»b* 25, 

64. 

64. 

Bp. 

P4. 

1M* 


AZKW 

4b. 

5b. 

50* 

58. 

A«. 

OT . 

41* PH* 

7«. 

70. 

37, 

45. 



A ZXZ 

42. 

41. 

41. 

41 . 

4**. 

SB. 

SP. 66. 

76. 

76. 

55, 




AZLQ 

25* 

34. 

38. 

3R. 

Bt. 

74, 

74* 64. 

71. 

71. 





AZLA 

52. 

4.3. 

43. 

43. 

26. 

41 . 

41. 57. 

0. 






AZLB 

52. 

43* 

43. 

43. 

75^ 

41 i 

41* 57. 







AZLO 

44. 

51. 

31. 

31. 

44. 

24* 

74. 







AZLC 

52. 

3/. 

37. 

37, 

2 3. 

o. 








AZKA 

52. 

3/. 

37. 

37. 

23. 









AZTl 

GO. 

45. 

45. 

46. 










AZGL 

lb* 

H. 

n. 











AZLK 

lb* 

tl. 












A2LL 

lb* 













AZLR 

n, 

MtCr 

AAAA 













© ►CPU UTILIZATION OEM PROCESSOR IS *707 


®—+ RFO- 


AZLI MULESHOE po 
AZLO POST SO 
AZLC LITTLEFIELD PD 
AZLK LU&QOCH PD 
AZKS tahoka So 
NAAF MIH-ESHOE S.O* 
AAA A AUSTIN SWITCHFK 


A/KK MORTON SO 
AZLA PLAIN* IEW PD 
A2KA LlTTLtFIFLD SO 
AZLL LURROCK SO 
AZLE PPOWNT-IELO PO 
NAHS CPOSfiTTP'J S.O* 


A2r 4 spur pn 
aZLR PLATNVTF* so 
ftZTl OLTori Pn 
ftZLR SLATON PD 
ft2LF PROWNFTFLn SO 
NACG LEVn-LAHt) S.O* 


A7X? FLOTOAOA SO 
•7LO LEVELLANP pn 
AZSL LMRHOCif PPS 
»7LJ TAHOAA PT> 

•?LH DENVER CITY PD 
MAFA PLAINT^ S.O^ 


INDICES FOR SYS. TENW*= 
1 2 3 4 *i 6 


R 10 11 12 13 1* IS 1* 17 IP lO PO 21 ?? 23 24 ?5 


©— ► RSC = A AAA FUR FEGION l 


f 
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Table 3-3. Printer Output from the Example Run 
(Continuation 3) 




REGIONAL STAR NETWORK AMP ITS roSTS- 1 


S^T^M T£RMN* 

AZLI 

NO. OF LINES RFR. 


1.2KP 

1 

2.9KP 

0 

4.8KR 

u 

LINE UTILIZATION 

.QU4 

□SINCE FROM «SC 
TRAFFIC 

399 

line to CPM 

*980 

CPU TO LINE 

P.564 

LINE RESPONSF TIME 

3.2 r* 


SU^fOTAL 

INST * COSTe 


LIMES 


0 

SER.T. 

4H0 

20 

MODEM 

24110 

10U 

UROP 


0 

ANNUAL RECURR. 

COST 


LINES 

2297t>0 

14364 

SER * T. 

8640 

36» 

MODEM 

126/2 

526 

DHOP 

5700 

24U 

TOTAL COST 

INST. COST 

2**0 

120 

RECUR* COST 

256*22 

16492 


STSTEM TERMN. 

AZT1 

NO, OF LINFS ftfO. 

1.2KR 

1 

2.4KB 

U 

4.8KB 

0 

LINE UTILIZATION 

*tlU3 

OSTNCE FROM HSC 

373 

TRAFFIC 

LINE TO CPU 

.715 

CPU TO LINE 

2.13b 

LINE RESP'»NSF TIM*. 

3.27* 

SU510TAL 

INST. COSTS 

LINES 

U 

5ER.T. 

20 

MODEM 

100 

DROP 

U 

ANNUAL PECUHti. COST 

LINES 

1 3426 

SER.T. 

360 

modem 

52H 


AZKK 

A7KH 

A7XZ 

aZLO 

1 

1 

1 

1 

ft 

fl 

0 

n 

0 

tl 

n 

0 

.003 

.nf<4 

.on? 

.On? 

37Q 

7 */ 

*31 

2 Q 4 

*5A4 

.037 

.747 

.3*1 

1.411 

2.373 

J.5R8 

1 . OHR 

3.RT6 

3.27ft 

3.277 

3.2/5 

n 

h 

0 

II 

20 

2" 

20 

20 

inn 

mo 

100 

ion 

n 

0 

0 

(1 

13644 

!«133? 

11016 

1058® 

360 

36i' 

'60 

360 

52* 

52* 

*26 

52* 

240 

24lf 

?40 

240 

120 

120 

120 

120 

14772 

114611 

13044 

J 1 71 2 

REGIONAL STftW network and 

ITS COSTS- 

A2GL 

AZL* 

A7LL 

/iZL« 

1 

1 

l 

l 

ft 

0 

D 

0 

0 

n 

0 

n 

.016 

• 069 

.012 

.005 

33? 

33? 

332 

316 

4.144 

32.3U4 

5.2«1 

1.335 

13.140 

46.424 

7.884 

3.161 

3.31 1 

3.461 

3.301 

3.2*1 

ft 

H 

n 

0 

20 

20 

20 

20 

100 

lnc 

100 

100 

0 

n 

0 

n 

2390 

239li 

2390 

11376 

360 

360 

*60 

360 

52B 

5?* 

528 

52P 


azlh 

A7LD 

A7LC 

A ZKA 

1 

1 

1 

1 

n 

u 

0 

ft 

n 

0 

ft 

O 

.003 

.005 

.004 

• On* 

356 


36P 

36* 

1*023 

i.343 

1*183 

• 600 

1.96ft 

3. 7U7 

?;925 

1*473 

3.27B 

3.283 

3.2*1 

3*276 

0 

U 

0 

n 

?n 

2u 

20 

?o 

ion 

too 

10O 

mo 

0 

0 

ft 

r» 

2663 

1278U 

1324B 

1 324* 

360 

*60 

360 

36« 


520 

52* 

5?» 

240 

?4II 

240 

240 

120 

V^J 

120 

120 

3691 

1 3«HIR 

14376 

14376 


AZK5 

A7Lt 

AZLP 

AZl*' 

1 

I 

l 

1 

ft 

U 

0 

n 

ft 

U 

ft 

n 

• nnj 

.nvR 

\ftftp 

*004 

311 

334 

334 

35* 

.537 

2.?/9 

*537 

*046 

1.325 

5.4b? 

mm 

2.703 

3.275 

3.2*9 

3*27*5 

3. 2*0 


n 

U 

0 

ft 

20 

2U 

20 

2ft 

inn 

10(1 

100 

tflft 

ti 

II 

0 

0 

2234 

12024 

12024 

1 PTfl« 

360 

360 

360 

3fi0 

52ft 

62H 

524 

52A 


AZLA 


1 

0 

0 

*01O 

356 


3*36° 

7.415 


0 

20 

100 

0 

2563 

360 

s?b 

240 

1?0 

36°1 

- 2 


A7LJ 


1 

ft 

n 

.'~T4 

Ml 


*763 

p*?q5 

*.27* 


0 

20 

100 

0 

2239 

360 

52R 
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Table 3-3. Printer Output from the Example Kun 
(Continuation 4) 


OR OP 

TOTAL cost 

24 U 

240 

240 

?4tl 

24*» 

240 

240 

?4U 

240 

240 

INST. COST 

120 

120 

i?n 

tao 

120 

i?n 

120 

120 

120 

l?n 

RECUR. COST 

1455b 

3518 

351 K 

351 a 

1250 1 * 

3357 

335/ 

13152 

13152 

13fi3fi 


REGIONAL star network and tts -OSTS- 3 


ststem terrn. 

NAAE 

NAPS 

NAC« 

nafa 

AAA* 

NO. OF UNFS RFO. 

1.2KB 

1 

1 

1 

l 

0 

2.4KB 

U 

0 

0 

0 

n 

4.6KB 

u 

0 

0 

0 

n 

LINE UTILIZATION 

*002 

*002 

.002 

.002 

*onn 

OSTNCE FROM RSc 

399 

310 

355 

561 

0 

TRAFFIC 

LINE TO CPU 

• 221 

.221 

.357 

.204 

*onn 

CPU TO LINE 

*701 

.701 

1.131 

.648 

• ono 

LINE RESPONSE Tl*E 

3*273 

3.273 

3.275 

3.273 

.000 

SUBTOTAL 

INST. COSTS 

LINES 

U 

n 

n 

0 

0 

SER.T. 

20 

20 

20 

20 

0 

RODEN 

1DU 

100 

ion 

too 

0 

DROP 

0 

n 

n 

0 

0 

ANNUAL AECUWt* COST 
LINES 

14364 

11160 

1 2700 

12496 

n 

SER.T. 

360 

360 

360 

360 

0 

MODEM 

528 

52ft 

524 

528 

TJ 

DROP 

240 

240 

240 

260 

0 

TOTAL COST 

INST. COST 

120 

120 

120 

120 

0 

RECUR* COST 

15492 

12288 

1390R 

14124 

0 


total cosr= 


259702 
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Table 3-3. Printer Output from the Example Run 
(Continuation 5) 


dD — 


SUBNET no. 

BEelNNNtNG NODt 
NO* Of TERM. 

NO* Of LINES 
1.5KB 
2,4KB 
4.5KB 

LINE UTILIZATION 
TOTAL MILEAGE 
TRAFFIC 

LINE TO CPU 
CPU TO LINE 

line response time 


AZLL 

15 

1 

0 

0 

.138 

617 

55.691 

100.777 

4 .036 


INST. COSTS 


SUBTOTAL 


FINAL MULTIDROP NETWORK Atm ITS COSTS- 1 
2 

AZKS 

6 

1 

0 

0 

.017 

388 

5. 305 
13.617 
3.416 


lines 


0 

0 

SER.r. 

260 

190 

70 

MODEM 

1300 

950 

350 

DROP 


0 

0 

(UAL RECUKR. COST 

lines 

16422 

11411 

5011 

5ER.T. 

4660 

3420 

1260 

MODEM 

6B64 

5016 

1848 

DROP 

3120 

2280 

840 

AL COST 

INST, COST 

1560 

1140 

420 

RECUR, COST 

31086 

22127 

8959 


TOTAL C05T= 

32646 
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Table 3-3* Printer Output from the Example Run 
(Continuation 6) 


©— * REGIONAL CfcNTFRS AMA 


SUBNETWORK 
BEGINS AT 


AZXZ 

MBG 

A ZKW 


A2TI 

A£KA 

NACG 

A2KK 

A/LO 



NAAt 

A/Lt 



AZLC 


A2LR 

A2tG 



NAFA 

*ZLU 
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Individual line type under consideration. For example, a modem turn- 
around time of 50 milli-seconds has been used in the run. 

Item 3 shows the traffic characteristic as calculated by the 
STACOM program and item 4 prints out the pre-assignment activities. In 
this example run, the system termination AAAA is preselected as the 
regional switching center; since only one region is under consideration, 
all of the remaining system terminations are assigned to region 1. 

Item 5 shows a small portion of a traffic matrix from each 
system termination to four data bases calculated by the program. Item 6 
prints the total incoming/outgoing traffic in bps to/from each individual 
system termination. Also included is total incoming /outgoing traffic 
to/ from the system. 

Item 7 gives a short list of point-to-point distances between 
system terminations as calculated by the program. 

Item 8 gives the system centroid as designated from the input. 
Item 9 shows the CPU utilization at the central switcher of the system 
being studied. 

Item 10 gives the IDs and names of all system terminations in 
the region and their internal indices. Item 11 prints the regional 
switching center for the region which has been preselected. In this run, 
the RSC turns out to be the central switcher. 

Item 12 provides the details of the star network developed by 
the program. For example, the system termination AZLI is linked to the 
regional switching center AAAA by a 1200 bps line. With the traffic as 
shown, its line utilization is only .004 and response time 3-279 seconds. 
It is 399 miles away from AAAA. Based on the tariff applicable for Texas, 
its installation oosts are $20 for service terminal and $100 for modems. 
Annual recurring costs are $892 for lines, $360 for service terminals, 

$528 for modems and $240 for the drop charges. After the printout for the 
star network, the multidrop network (as generated by the STACOM program) 
is printed as given by item 13- In this example run, two distinctive 
subnetworks have been generated. Both subnetworks require only the 1200 
bps lines. In addition to data similar to item 12, it also includes the 
total number of terminals on each multidrop line and the total connection 
railage . Summarized oosts are also provided . 

Finally, the actual structure of the final multidrop network 
is printed as item 14. It is printed in a tree-type form, relating each 
individual termination to others. 

The above described printer output is a copy of the FORTRAN 
output alternate file, 100. In addition to this, a regular FORTRAN output 
file, 6, is generated by the program. For this example run, Table 3-4 is 
the copy of output file, 6. It indicates all of the request messages go 
by the program during its input phase. The last two lines are an 
indication that the program has been successfully executed. 
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Table 3- 1 *. Unit 6 Printer Output from the Example Run 


ASSUME MUMPER PE REGIONS 
ENTER NR AMO STRIKE RETURN KEY 

TYPE IN NO. OF SYS. TERPNS* DATA IIASES AMP CITIES WITH FORMAT 31b 
THERE APE 2*SYS. TE«MNS.» 4 PATA HASPS 3SH C»TIFS 
TYPE IN DATA RASE LOCATIONS WITH FORMAT 6UY*A**> 

4 DATA RASE* ARE AT AAA A DODO SSSS HMIIH 
TYPF IN CITY V-H WITH FORMAT < 33X# I5#2»* IS) 

TYPE IN Pin NO,, NAME# MAPPING AOR. Aim TRAFFIC 

WITH FORMAT I4»1X#4A6#T‘*#6FR.P 

TYPF III NO. OF PATE STRUCTURES UNl'FR 

CONSIDERATION PITH FORMAT 13 

TYPE IN RATE APPLICATION TO EACH COMDN. 

WHT EACH SYS. TERM. WITH FORMAT 10t2 

REAn IN TRAFFIC DENSITY TYPE AND RATE STRUCTURE 

FOR EACH Cl IT WITH FORMAT no II 

TYPE IN NO. OF I IMF TYPES APPICAHLF WITH FORMAT 13 
TYPE IN NAME* CAPACITY, UTIL. FACTOR AVAIL. FOR 
EACH LINE T'PF WITH FORMAT AG , I X r IS . 1 X ,F 3.2. 2 1 1 X# T 1 » 

TTpF IN NO. OF nFVICES AMP NAMES FOR FACH I INF TYPE 

WITH FflPMAT 13/1RT At», 1» 1 

TYPF IN INST . AMP RfcCURH. COSTS WHT 

RATE STRUCTUHE# LINE TVHE# flFVICF# TRArFIC OFMSTIY 

ANn DUPLEXING MOPE with FORMAT 2F4.2/2F4.? 

TTPF IN INST. COSTS *o< INES WHT 
KATF# LINE. DFuSITY # ■>. DUPLEXING HOOF 

WITH FORMAT 4F«.2 

TYPE IN INDEX FOR L1NFA u ITY OF LINF PrCUR. COST 

FUNCTION with i=linear and NOriLlMEAP OTHERWISE 

WITH FORMAT II FOR EACH LIHF TYPE 

TYPF IN Ri. CUR . COSTS WITH FORMAT 4rp.? IF i_TNF AR 

WITH FORMAT 10FA.3/10FO.3 IF MPNLINFAR 

IE NONLINEAR# USE 1"F8.<? 

TYPF IN ACTION INDICES FOR EACH REGION 

1ST ELFMENT: 1= INSERTION TO THIS PRELnAorn REGION IS OK 

2HP ELFPCNT! 1= OP T I M 1 7 A T I ON IS NEEDED 

TYPE IN HEOION INDEX AMU ACTION HUMMER NFFOFH 

WITH FORMAT 21? AMD END IT WITH A 0 0 

TYPF IN NPL# MAK. NHLOM# UAKOH* MDH. 

TANPM# TAD IN FORMA I (SI4.2F7.S) 

TYPF III MO. OF MSG TYPfS. AND TRAFFIC STATISTICS 
SUCH AS MSFNAM, MSLIN* "SLOUT, RATIO WISH 
FORMAT 14/ I A0.7I ?!4 #2FG.3 ) ) 

TYpr in PRELOAnFO SYST F ’* TFRMM. AND RSF WIT** 

FORMAT Tl»lX*Au,At> 

3283 DISTANCE UFA’S ARF 0VFRS17FO 
ASSUME A SYS1E“ CENTROID 
ENTF.R CODF FOR NSCC AND STRIKF RETURN KEY 

INPUT TOTAL MO. OF TRANSACT IONS AMD NO. Or ACCFSS AT THE S’-»ltC»'FR 

ENTER WITH FO.S AND 13 UNDER XSAC/SrC 

READ IN LlMltS ON NO. OF SYS. TERMS, On A I. INF 

»HESPON*E TIMF HERD ANn NO. OF PROCESSORS WITH FORMAT 

I3,FS,?#I2 

IF PLOTTING IS PEOUIREO# TYPE t WITH FOHMAI 13 
TRYLMK HAS HFFM ACCESSED FOR inns? TI«rs 

UPNETW HAS HFFM ACCESSED FOR ?P T IU F S 

QHHKPT PRINT* 
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3. 4. 3* 2 CalComp Plot . Figure 3-1 is the actual network graph as 
plotted by the CalComp plotter. It reflects the network as printed in the 
last part of printer output. It should be noted that because of the 
existence of identical V-H coordinates associated with system terminations 
in the example run, fewer distinctive nodes are shown in the plot. The 
root node is for the system termination, AAAA, which is the location of 
the Austin central switcher as used in the example run. 



Figure 3-1. CalComp Plot from the Example Run 


3-34 


REFERENCES 


Esau, L. and Williams, K., "On Teleprocessing System Design: 
Part II -A, Method for Approximating the Optimal Network", IBM 
System Journal. Vol. 5, No. 3, 1966. 

"FORTRAN V Programmer's Reference", UNIVAC Series, UP-4060. 

Rev. 2 . UNIVAC, A Division of Sperry Rand Corporation, Blue 
Bell, Pa. 

Martin, j., &a£sflLAnfll£flla for Data Transmission, Prentice- 
Hall, Inc., Englewood Cliffs, New Jersey 

Karnaugh, M., Multipoint Network Layout Program . Internal 
Document RC (#16892), IBM Thomas J. Watson Research Center, 

New York 

Fielding, J., Frewing, K., and Reilly, N., "Requirements 
Analysis and Design of Ohio Criminal Justice Telecommunications 
Network", State Cri minal Justice Tele c ommunicat ions ( STACOM) 
Final Report , JPL Document 77-53, Vol. II, Jet Propulsion 
Laboratory, Pasadena, Calif. 


77-53, Vol, IV 


APPENDIX A 

STACOM PROGRAM LISTING 


5 192fl*ST ACOM < 1 > .MAIN/0777 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


C ********************************* ****************************************C 

c* *c 

C* 5TAC0M TOPOLOGY PROGRAM *C 

O jft propulsion laporatopy *C 

C* 4800 OAK GROW DRTVF *C 

C* PASADENA, CALIFORNIA Q1103 *C 

C* *0 

C**»f ************* ************************************************** t***C 

c 

this program is designed to perform formations of regions, selections 

of REGIONAL SWITCHING CENTERS* FORMATIONS OF INITIAL PEG TONAL NETWORKS, 
OPTIMISATION OF RFGIONAL NETWORKS USING THF FSAU-WTLLT AMS METHOD IF 
REQUESTED* AND FINALLY FORMATION OF AN INTFRRFGTOM network AN* ITS 
OPTIMIZATION 


********************************♦***•****>***•*** 


this topology program contains one main program 
tmft are as follows: 


AMU ELEVEN SUBPROGRAM*;. 


MAIN PROGRAM 
SUBPROGRAM- 1 
SUBPROGRAM -2 
SURPROGRAM-3 
SUBPROGRAM-4 
SURPROGRAM-S 
SUBPROGRAM-6 
subprogram-? 

SUbPROGRAM-R 
SURPROGPAM-R 
SUBPROGRAM- *0 

subprogram-! : 


'STEM TERMINATIONS) 

HON AND ITS OPTIMIZATION) 
;-'TIMl7ATI0N) 


MAIN (REGION ASSIGNMENTS OF 
RGNNET (REGIONAL NETWORK *■ 

IRNOP (TNTER-REGTON NFTWOPi 
ICOSTJ (COSTING FUNCTION) 

RHOFUN (LINE UTILIZATION FUNCTION) 

LINNUM (LINE CONFM. DEFINITION RASED ON TRAFFIC) 
PACK (STORING OR RETPIFVIMG DTSTANCF DATA) 

OIST (FINDING DISTANCE PFTWFFN TWO GIVFN TERMINALS) 
LINK (FINDING COMPRESSFO INDEX FOR DIST) 

RECOVP ( RECOVERING COMPRESSED DTSTANCF DATA) 

PLOTPT (PLOTTING EACH DROP ON A MULTIDROP NFTWORK) 
RSPNSE (ESTIMATING RFSPONSE TIMF) 


************************************************ 

PARAMETER MW=4 , IWTr ion *NLTMIT=? ,NPC=36(I ,Hpo=lB 
PARAMETER NP1=130* NP2=1* NP3=4, NP4=3 

PAPAMETER NP6= (NPC*NPC/2-NPC+l ) /4+1 
PARAMETER NP7=4,NP0=m*NPC 

COMMON /EIN/ SVR(NPl),NRSC(MW>,NUMPP(MW),TRAFnN(NPl)* 

TRAFIT(NPI) 

/VH/ IVERT(NPC), THORZN(NPC) 

/CONST/ N1,N2»N3,N4,N7,NCITY 

/INF/ IRATEJ(NP?,NP2),TRANO(NPC*?)»IFLAG(NP2*NP3) 

/PCOST/ AINSTC (NP2*NP3*NP4» 3*2,P) , PFCRC(NP?*NP3,MP4*3,2»2) » 
ANSTLN ( NP? » NP3 , 3,2*2), RE 0RLN ( NP? * NP3 » 3 , 2 , 1 6 >» I*' l«*l.X ( nP 3 ) 
/LINCHR/ LINMIX(NP3>* LTNCAP<NP3>* tlTILlZ(NP3) 

/REF/ IREF(NPC),TRAFD(NP1,2,NP7)# OSTNCE (NP6) ,MflPAnP (NR1 ) 

/OVFR/ TVRD(NP0,2> , lOVERl 

/NAME/ N AMEST ( NP 1 , 4 ) , L I N AME ( NP3 1 • NAMFHW < NP4 ) 

/SUM/ ASUM(4)*RSUM 

/XMT/ TIMXMT ( 7,NP3 ) * WATT(6) 

/MSLA/ AMSLO) 

/ROUND/ NTERMS , TI M**E0 , MOROC , MP1.0T 

/ADO/ IADP(NPl) ,KCHG»KADD OKCHG=FTRST DROP, KAOD=JUST FOR LTNr 
INTEGER ortncf 

DIMENSION IACTN(MW,S) *INDYPT(MP1) 

DIMENSION NUMRR(NP1 ) ,TTRAFC(2) »NBAFF(NP7) 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
86 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 
113 


DATA fTRAFC/*TRAFTWT 9 * 0 UT*/ 

DIMENSION TRMlMW.MW), DRM(Utf'Mw)' NMwfffWlt » MUMPfNPl# 4 > 
INTEGER SVR 
DIMENSION OUTPRT<NPl) 

NMAXzNPO QmAXIMIJM SIZE FOR OVERFLOW DTStANCF DATA TARlF 
CPMAVG“ 0 * 

C 

C SELECT NUMBER OF REGIONS 
C 

225 WRITE(6#220> 

RF 80 < 5 * 735 > NR 1 
WRlTEtlWTtlOlU MR 1 

anRi=npi 


C RFAO IN TRAFFIC DENSITY INDEX AND RATE STRUCTURE FOR EACH SYSTEM 
c tfrmination in the system 

c 

CALL CREADAfNl) 

C 

C READ IN rate APPLICATION MATRIX 
C 


CALL CREADB<N 2 > 

C 

C read IN names. CAPACITIES. UTILIZATION FACTORS AND AVAIL ABILITIES 
C FOR LINES APPLICABLE IN THE SYSTEM 
C 

CALL CREADC<N 3 > 

C 

c read in installation and recurring costs for chargfarie tte«s 
C RfoUIRED for communication LINFS 
c 


CALL CREA 0 D(N 4 > 

c 

C Read in INSTALLATION and PECUR 9 ING COSTS FOR LINES 

c 

CALL CREADF 

c 

c RFAD IN ACTIONS to BE PERFORMED on FACH regional MrTWORK 
C 1 ST ELEMENT : 1 -INSERTIONS TO PPELOAOEO REGIONS APE ALLOWFO 
C 0 = SUCH AN ACTION IS NOT ALLOWED 

C ?NO ELEMENT ; l=NETWORK OPTIMIZATION ir to of performed 
c o=no optimization is NEEDED 

c 

call creadk 

c 

c read in line and line protocol charactfristics 
c 


call creadr 

c 

c CONVERT TRAFFIC FROM CHAPACTFRS/MIm to rtts/sfc 

c 


DO 65 K-l • 2 
00 65 1=1 i Nl 
00 65 L=1pN7 

TrAFD U#K.L)=TRAEn(riX.L)*P* /M • 
P5 CONTINUE 
ISUM=n 
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114 

115 

116 
117 
116 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 


DO 25 T=l»MCtTY 
lSU4=fSUM*I 
TRFF«nriSUM 
25 CONTINUE 

DO 701 I=t*NRl 

NUMPR < I ) s 0 QUO, OF SYSTEM TERMINATION* AT EACH RFATftN 
701 CONTINUE 

NRITF<6*8BB> 

805 REAO(5*800 ) nCODE*NSTATE»NRFGO 

WPITE<IWT*804> NCOOEi NSTATF# wREAO 

NST ATF=L.0C AC ( NST ATf 1 OFINO CAPDT"AL TUPF* 

GO TO<801#ft02»240)»NCODE 
802 CONTINUE 

SVR INSTATE* = NREGO 
Nt)MPR(NREGQ) = NUMPRlUREGOI + 1 
801 CONTINUE 

NRSC(MREGO) = NSTATF 
GO TO 805 
240 CONTINUE 

DO 70 L=1»N1 
TRAFON(L)=0. 

70 CONTINUE 

IOVERl=l QCOUNTER FOR OVERSIZED TRAFFIC DATA 
C 

C CALCULATE nisTANCF DATA BFTWFEN SYSTEM TERMINATIONS 
C 

DO 20 J-l #NCITY 
00 38 K=1 #NCTTY 
IF(J-K) 5t # 30 ♦ 30 
51 CONTINUE 

ISOlsI I VERT ( Jl-IVFRTUO )♦*? 

IS01=ISQi+( IHORZNI J>-IH0 RZm<K 1 1**2 
IFdSOl .EQ. OlGOTO 2? 

S01=IS01/10. 

NS<U=INT(SQ1 > 

OlFFSSOl-NSOl 

IFlDIFF ,GT. 0.) SQI=NSQ1+1. 

BDIST= SQRT(SOl) 

KOIST=!NT<RDIST) 

niRF=POIST-KDTST 

IFlDIFF ,GT. 0.) K0IST=KDIST+1 

GOTO 23 

22 CONTINUE 
KOIST=0 

23 CONTINUE 

JKL=LINK(J»K) 

IFIKDIST ,LE. 5101 GOTO 5 
CALL OVERFUJKUKMST1 
GOTO 30 

5 CONTINUE 

CALL PAC«UKL*KDIST,1 fOCTNC F > 

30 CONTINUE 

20 CONTINUE 

IOVER1 -I0VFR1*1 
WRITFI6*3) I0VER1 
C 

C TOTAL INPUT TPAFFIC RY EACH SYS. TrRMN* 
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m 

172 

173 

174 
ITS 

176 

177 

178 

179 
IPO 

181 

162 

183 

164 

165 

166 
1*7 
166 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 


C 

TpFALL=0.0 

TAU_IT=0. 

talldn=o. 

DO 41 Lsl»Nl 
TRAFIT<L>= 0.0 
TRAFON!L>= 0.0 
DO 9? J=1 »n 7 

trafihd = trafitiu + trafo<l#2#ji 

TRAFDN(L) = TRAFDN(L) + TRAFDtt* 1 » J) 

42 CONTINUE 

TALLON=T ALLnN+TR AFP* ! L 1 
TALLtT=TALLlT+TRAFIT«L) 

41 CONTINUE 

TRFALL=TALLON+TALLIT 

C 

C PpINT OUT TRAFFIC DATA BETWEEN SYSTEM terwtmatT 9N9 
C 

NTURN=N1/19 t 1 

NRFMrWOD (N1 *151 

IF<NRE« .FO. 01 NTURN=NTURM-1 

WR ITE ! I WT* 1 1 1 ) 

00 1100 KK=1.1 RFOR TEST ONLY 
KK1=(KK-1 >*15 ♦ 1 
KK2=KK*15 

IF1K42 .01. Nl> KK2— Ml 
WR I TF ( I WT* 1 13) tlNOXPTIJ)# J=KK 1 #Kt<? ) 
no 99 Jr t »NT 
no 97 KTrl#2 

DO 28 KR = KK1 *KK2 
OUTPRT(KR)=TRAFnlKRrKT»J) 

28 CONTINUE 

WRITE C IWT» 1 10) TTRAFD(KT)* tOI.ITPRT(«»r H=KK1#KK?> 
97 CONTINUE 

99 CONTINUF 

1100 CONTINUF 
C 

C PRINT OUT TRAFFIC ORIGINATED FROM EACH STFTPM TFR‘*TNATT<Vi 
C 

WRITE! TWT *1013) 

WRlTFUWT*100l> I INDXPT(NJ) tTPAFDN(NJ) #NJr1 *N1 ) 

WRITE! IWT»74) TALLDN 
C 

C PPINT OUT TRAFFIC DESTINaTEO TO EAC M SYSTFV TfRMTWATION 
C 

WRITE t IWT»1014) 

WRITF<IWT»1001) ITN0XPT(NJ).TRAFIT!NJ) ,HJsl»N1 ) 

WRITE ( TWT #74 ) TALLTT 
WRITE ! IWT #75) TRFALL 
C 

C PpINT OUT DISTANCF DATA BFTWE p N SYSTEM TFPMTMATTONS 
C 

NTURN=N1/15+1 
NREM=M0D(N1 #15) 

IF<NREM.E0.0 ) ntupn=nturn-i 
N TURN = I OFOR SHORT OUTPUT 

DO 101 KK=1# NTURN 
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228 


KKl=«KK-i>*15 ♦ 1 

229 


KK2*KK*t5> 

2 30 


IF(KK2 ,gT, NI» KK2=N1 

231 


WRITFUWT,IOO) IINOXPTCJI * J=K*2 ! *-1) 

232 


no RO JSltKK2 

233 


IF(J.GE.KKl) KKlsj+I 

234 


DO 27 KR=KK2»KK1»-I 

235 


OUTPRTt 'R)=niSH'J»KR> 

236 

27 

CONTINUE 

237 


WRITE <IWT* 112) INO*PT<-J) * loUTPRTIK > .K=KK2»KK1 ,-j » 

238 

98 

CONTINI w 

239 

lot 

CONTINUE 

240 


WRlTE<G.210> 

241 

400*=! 

CONTINUE 

242 


rFAD( c; *734) NSCCl 

243 


WRlTEnwTtlOlS) NSCCl 

244 


nscci=local(nscci; 

245 


IF(NSCCI.NE.O) GOTO 4003 

246 


WRITE 16*4013) 

247 


GOTO 4005 

248 

4001 

CONTIN' IE 

249 


TPR1 = TRFALL 

250 


WRITF < 6 * 21 01 ) 

251 


RFAD(5*210P) XSAC* NRFOSW raNPFOSW=NO. OF REOUF5TS/TRANS AT SWITHfR 

252 


WRITE <6 * 21 03 > 

253 


read ( 5* 2104 ) nteRms*ttmreo*mproc 

254 


WR I TE ( G r 2 1 05) 

255 


RFAD< 5*2104) mplOT QmPLOT=1 If PLOT IS NfEOFR 

256 

C 


257 

C PrF-CALCULATE CPU turnaround time 

25B 

c 


259 


CALL CWAITC 

260 

c 


261 

c SUM 

UP TOTAL TRAFFIC FOR PRELOADED SYSTFM TERMINATIONS in RFGIONS 

262 

C WHICH do not allow ANY INSERTIONS OF OTHFR SYsTFM TFPMINATIPMC 

263 

c 


264 


TPR2=0 

265 


DO 77 NS1.N1 

266 


NK=SVR(N) 

267 


IF<NK ,EO. 0) GOTO t7 OMOT PRELOAPFO 

268 


IF ( I ACTNlNK* l ) .FO. 0) GOTO T7 PINSFRTTONS ARE ALLOWED 

269 


TPR2STRAFDNCN) ♦ TRAFIT(M) ♦ TPR? 

270 

77 

continue 

271 


DO 76 Lsi#NRl 

272 


lFtlACTNIL#l),CO,0.oR.Mtl M PR(Ll .FO.O) GOTO 76 

273 


ANRI -ANRI-1. 

274 

76 

CONTINUE 

275 


TPR1=TPR1-TPR2 

276 


IF<NPI .EO. 1> GOTO 726 GONE RFGION CASF 

277 

c 


27B 

C DfTERMINE LOWFR LIMIT FOR AVERAGE REGIONAL TRAFFIC 

279 

c 


280 


ZFTAs.1 

281 


IFtANRl.EO.O.) GOTO 340 

282 


TPR=TPPI/AMR1 

283 


GOTO 350 

264 

^40 

CONTINUE 
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295 

296 
287 
268 

289 

290 

291 

292 

293 
299 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 
30B 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 


TPRSTP»1 

350 CONTINUE 

TPRL=TPR*<1.-7ETA) 

DO 909 NREG=1»NR1 
TRFS=0 . 

AMAXPsO'* 

11=0 

IF(NUMPR(NREG>.NE.0> GOTO 50oO ©NRFG IS A PPFLOAOFP RFfttON 
C 

C ASSIGN SYSTEM TERMINATIONS TO A REGION WITHOUT ANY PRFLOAMng 
C 

DO 400 NI=1»N1 

IF<SVR(NI» .NF. 0) GOTO 400 ONI 15 PRfLOAPFO 
ADIST=PIST<NSrci*Ml) 

TFIAOIST .L£. AMAXD) GOTO 400 

AMAXO=ADIST ©UPDATE LONGEST nIST. EPOM NCCC 

II=NI QUPDATE FARTHEST SY 5 . TFRMN. 

400 continue 

NS1=II OTHF FARTHEST SYSTFM TFR m INATTON 
TRFS=TRFS + TRAFON(NSl) + TRAFITlNSl 1 
SVR (NS1 ) =NRFG 
NUMPP t NRFG ) =NUMPR < NREG > + 1 
IFITRFS ?GT* TPRLl GOTO 707 
GOTO 7021 
5000 CONTINUE 

IF 1 1 ACTN(NRFG* 1 ) .FO. 1 ) GOTO 909 ©INSERTIONS ARE NOT ALLOWFP 
C 

C SUM UP TRAFFIC IN THIS REGION 
C 

DO 702 1=1, N1 

IF<SVR(I> .NE. NRFG) GOTO TO? 

TRFS=TBFS+TRAFnH( I > ♦TRAFITI I ) 

AD!ST=PlST(NSrci.T> 

IFIADIST .GT. AMAXO) IT=I 
702 CONTINUE 

IFITRFS .GT. TPRL) GOTO 707 ©EnPUGH TRAFFIC IN THIS RFOTPM 
NS1=II OTHE FARTHEST SYS, TfRMN. I * 1 THE REGION 
IF(NPSC<NREG> .MF.O) NS1=NRSC CNPFG) 

7021 CONTINUE 

CALL FINDD<NS1»MS2> 

IF (NS2 .FG. 0) GOTO 909 
SVR(NS2>=NREG 
NUMPR ( NRFG ) =NUMPR t NPEG 1+1 
TRFS=TRFS+ TR AFDN ( NS2 ) +TP A F I T < MS2 1 
IFIN^EG .EG. NR1) GOTO 7021 
1P<TRFS .GT. TPPL) GOTO T07 
GOTO 7021 
707 CONTINUE 

TPR1= TPR1-TRFS GIIPDATF RFmAIMING TRAFFIC 
ANRI “ANRI- 1. 

TPR=TPR1/ANR1 ©UPDATE AVFRAGE TRAFFIC PER PFGTON 
TPPL=TPR*( 1 . -7FTA) GUPPATF LOW F R LIMIT 
909 CONTINUE 
GOTO 703 
726 CONTINUE 
C 

C OWF REGION CASE 
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342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 
361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 
376 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


c 

DO 727 NN=1*N1 
SVRtNN) = 1 


727 

continue 

NlWPR(l) = Nt 


703 

C 

continue 


c sfiect regional switching 
c 

00 500 J=l»NRt 
WCASE = 1.0E12 
MMRR = 0 
no 505 K=1*N1 

CENTFR 


JPtSVRUO ,ne, J> 
NMF»r = NMOR + 1 
►.JMR(NMPR) = K 

GO Tn ! 


NUMRR (NMPRIslNOXPT (K ) 
DO M90 1=1 t 4 


NUMR ( NMRR • n 5N A VEST < K . 

490 

CONTIM! IE 


505 

C 

CONTINUE 



C PRINT OUT PID AND NAMES FOP SYSTEM TERMINATIONS TN THf RFGJrtM J 
C 

WRITE (IWTr 101ft) Jr (NUMRPf 1 ) p (MUMP ( I p T t) » 1 1*1 #4) p I“1 tNMPP 1 
C 

C PRINT OUT INDICES OF 5Y5TFM TERMINATIONS IN THE RF^tON J 
C 

WR 1 TE (I WT p 1 0 28 ) ( NIJmR (Ilr 1 = 1* NMnP 1 

C 

IF(NRSC(J) .NE* 0) 00 TO 501 rapPF-SF|_FET p 'n 
DO 5?0 K“1 p NMBP 

NNl - NUMR(K) QASStlNfrn RSC 

SUM! r 0.0 

DO 530 L=1pNMBP 

NN2 = NUMRtL) 

SUMT=SUMT+(TRAFnNCMN2)+TPAPiT(NN?) )*nTSTfNN2#NN1 ) 

530 CONTINUE 

IFtSUMT .GT. WCASD GO TO 5?0 
WCASF “ SUWT 
MR5CJ) = NNl 
520 CONTINUE 

501 CONTINUE 

fiN4=NPSC< J) 

WRITE<IWTp1003) TN0XpT(NN 4> pj 

TGO=IACTrK Jp2) CJIF Ip OPTIMISATION TS REOUIRFH 
CALL RGNNET < J p Nmrr p nUMR p TGO p N* ’MRR ) 

500 continue 
C 

C GENERATE INTER-REGION ORlCTlN-nrsTTMATlON MATRIX 
C 

c initialization 
c 

IF<NR1*LE.2) GOTO 551 
DO 902 K1“1#N7 
KKK"N0A5F ( K 1 1 

kkk=local(kkk> 
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3*19 


IF(KKK '.E<a. 0) WRtTF<6»7777> K| 



400 


NBASF(Kl>=SVR(KKIO 



401 

902 

CONTINUE 



402 


DO 609 K1=1»NR1 



403 


00 699 K2=1*NP1 



404 


TRm(K1,K2>=0. 



405 


TRM!K2.K! )=0. 



406 

699 

CONTINUE 



407 


00 900 J=l»NRl 



406 


NMRP = 0 



4 09 


no 90S KSJ.NI 



410 


IF<SVR<K> .NE. J) GO TO 909 



411 


00 915 KK=1»N7 



412 


NN2=NBASE(KK) okegiomai. TNOFX FOR XK*S 

OAT A P ASF 

413 


TRM { J , NN? ) =TR AFP t K • ? . KK > +TPM f J * MW? ) (SOI 'TGO INS 

TRAFFIC 

414 


TRM(NN2*J)=TPAFPlK#l . kk>+trm<nn?..j) OIMCOMING 

traffic 

415 

915 

continue 



416 

905 

CONTINUE 



417 


00 9?0 Jl=l»NRl 



416 


NN? = NRSC(Jl) 



419 


ORN(JrJl) = PISTINNl.NM?) 



420 

920 

CONTINUE 



421 

900 

CONTINI IE 



422 


NTURN=NR1/10+1 



423 


DO 535 L=1»MTURN 



424 


LL=<L-1)*10M 



425 


LU=L*10 



426 


IF(L'I.GT.NRl) UU=NRJ 



427 


WRITE! I WT. 1030) NR1 »NR1 . (K .K=LL»l UJ 



428 


DO I0a2 1=1. NRl 



429 


WRtTE(IWT*1021) I*<TRM!l,J),j=lL»Ll») 



430 

102? 

continuf 



431 

535 

CONTINUE 



432 


DO 595 L=1#NTURN 



433 


LL=!L-1 <+10 ♦ 1 



434 


LU=L*10 



435 


IFtLU .bT. NRl’ UJ=NRt 



436 


WRITF(IWT.*n3') nri.nri.ik»k=ll*lu) 



437 


no 1024 1=1 .NRl 



436 


WRITF(IWT*1021) I#<p«M(I.J)»J=LI.»LM> 



439 

1024 

CONTINUE 



440 

545 

CONTINUE 



441 

C 

CALL lRNOP(NRl»NLIMIT.TRM) 



442 

74 

FOPMAT(//»40X* ' TOTAL TRAFFIC** »F9.?> 



443 

75 

FORMAT <//.35X*’ TOTAL SYSTEM TRAFFICS* *F«».R) 



444 

220 

FORMAT ! • 1 ASSUME NUMBER OF REGIONS* * 



445 


* /' ENTER NR ANO STRIKF PFTURM XFV*> 



446 

735 

FORMAT (I 3) 



447 

688 

format < ix. *type in prfloapfd systfm tfrmn. ano 

FSC WTTH»» 

448 


i /.lX.'FORMAT I1.1X.A4.A5* ) 



449 

POO 

F0RMAT<I1.1X,A4.I5> 



450 

804 

FORMAT (10X.I1.2X.A4. IS) 



451 

3 

format! tx* ia. * oistance items arf overstep* > 



452 

210 

FORMAT! • ASSUME A SY5TEM CENTROln* * 



453 


• /* ENTER COPF FOR NSOC Amo STRIKF rftupm 

KFY*) 


454 

734 

FORMAT !A4) 



455 

4013 

Format!* the given system comm. cf m troip ts mot ox. rftypf it*) 
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456 

457 
456 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 


210J FORMAT! IX* » INPUT TOTAL HO* OF TRANSACTIONS ANO NO. OP AcCFSS •* 

1 * AT THE SWITCHER' */*lX* 'ENTER WITH FA. 5 ANO T3 UNDER xSAC/SFd 

2102 F0RMAT(F8. 5*131 

2103 F0RMAT(1X**READ IN LIMITS ON No. OF SYS. TERM*:, on A * InF**/* 

1 • .RESPONSE TIME REQD AND NO* or PROCESSES WITH FORMAT *► 

2 /»• 13, F5. 2*I2*> 

2104 format! is *F5.2* 12) 

2105 F0RMAT11X**IF PLOTTING IS REOHIREO* TYPE 1 WITH FORMAT T3'l 

110 FORMAT! (/.1X.A6.2X* 15F8.1 1 ) 

111 FORMAT <1H1,50X» 'TRAFFIC MATRIXIFPS) *1 
113 FORMAT! //*1X**TERM. * *4X*15!4X*A4> * / 1 

109 FORMAT! 1H1.40X* 'POINT TO POINT PIS t ANCF MATRIX •* 

* //* IX* 'TERM. **15(4X*A4), / ) 

112 FORMAT! !2X*A4*15FA.O) 1 

1001 FORMAT! !1X,5!6X*A4*2X*F10.A),/) 1 

100? F0RMAT!//*lX,'RSCs*,2X*A4, ' FOR REGION*, Is) 

101] FORMAT(/*10X.' there ARE' • 15, * REGIONS*,/) 

101? FORMAT 1 1H1 * 35X * • TOTAL TRAFFIC ORIGINATED FROM SYS. TfRmN. ** 

* '(BITS/SEC) •*/) 

1014 format!/ *3sx* * total traffic ofstt'iatfo to sys. tfrmn. ** 

* • (BITS/FEC) ' ,/) 

1015 FORMAT </*10X,' NCC= **2X*A«#/) 

loin F0RMAT!1H1.' REG='*I3** * SYS. TERMN.=« ,//, Uy * 4 ( A4* 1 Y* 4 A 6 ) ) ) 

7777 FORMAT < IX* 'THE'* 13. *TH DATA RASE IS MOT GVN AS A SYS. Term.') 

1021 FORMAT!//* !15X*I5*SX» 10F10. 3*/)) 

102« FOPMATI//,' INDICES FOR SYS. TERM, s' * < /*3nl4>) 

1030 FORMAT! 'l'*/,30X* 'INITIAL IMTEPRFGTON TRAFFIC MATRIX !', 

* 12.* X'*I2*')'*///*2tX*10l5X*TR)) 

103) FORMAT! • 1 • ,/,30X* * IMTFRREPTON nISTANCF MATRIX !**T2*' X**T2*')'* 

* 'MILES*. ///,21X*)n<5X*I5) ) 

551 CONTINUE 

STOP 

SUBROUTINE FINDD!N,M) 

c ********************* 

c 

c find the nfxt system termination m which is closest to n 
C WHERE M has NOT been ASSIGNED to any RFGTOM YFT 

c 

c ********************* 

AMINS2O000, 

MsO 

DO 708 K=1*N1 

IF !SVR(K) .NE. 0) GOTO 708 
ADIST=DIST!M*K) 

IF1ADIST .GF. Amin) GOTO 708 

AMIN= AO I ST 

M=k 

708 CONTINUE 
RETURN 

SUBROUTINE CREADK 

c ********************* 

C RFAD in ACTIONS REGARDING INSERTIONS O f SYSTFM TERMINATIONS 
C To PRELOAOED RFGIONS AMD REGIONAL nFTWOPK OPTIMIZATIONS 
C ******************* 

WRITF !6*94 I 

94 FORMAT! • TYPE IN ACTION INDICFS FOR FACH REGION 

* /*• 1ST ELEMENT 1 1= INSERTION TO THIS PPELOAnpD PEGTRU 1= OK ** 
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513 


• /»' 2ND FLFMFNTI 1= OPTIMIZATION is NFFpFp*) 

514 


00 200 NNUIrNRl 

515 


DO 200 NN2=1,2 

516 


IACTMINNI ,NN2)=0 

517 

200 

CONTINUE 

516 


WRtTF(fi»206) 

519 

206 

FORMAT! ♦ TYPE IN REGION INOEX AMD ACTTO'1 mU«GFR NFFOFo', 

520 


* /»• WITH FORMAT 212 AND END IT WITH A 0 0*) 

521 

250 

CONTINUE 

522 


REAP ( S,20 1 ) mRFG' NCOnE 

523 

201 

FORMAT (2 I?) 

524 


IF<NPFG ,EO. 0) GOTO 265 

525 


IF<NRFG.GT,NR1 .OR. NOODE .GT. 2) GOTO 

526 


IACTN(NREG*NC0DE>=1 

527 


GOTO 250 

526 

260 

continue 

529 


WRITE<6*202) 

530 

202 

FORMAT { • PLEASE RFTYPE THE INPUT*) 

531 


GOTO 250 

532 

265 

CONTINUE PNO MORF INPUT 

533 


RFTURN 

534 


SUBROUTINE CRFADA(Nl) 

535 

C 

****** ************** 

536 

C 


537 

C FUNCTIONS OF THIS SUBROUTINE ARE TO 

536 

c 

1. RECEIVF TOTAL NO. OF SYSTEM TERMINATIONS* DATA BASFS AND CjTTFS 

539 

c 

2. RECEIVE CITY LOCATIONS (V A M> 

540 

c 

3. RECEI 1 ' 17 PIP NO,# STS. TFRM. MAMFS, Anno. MAPPING AmO TRAFFICS 

541 

c 


542 

c 

******************** 

543 


write ( 6*Li ) 

544 

81 

FORMAT* » TYPE IN NO. OF SYS. TFRMNS, OATfl pasff AMO CTTtFS * 

545 


* ’WITH FORMAT 315*) 

546 


READ (5*10) Nl*N7#NCITY E> MUMPER OF SYSTrM TERMINATION e; 

547 


WRITE(6,7R) N1*m7,NCITY 

548 

76 

FORMATS THERE ARE *»lS»'SYS. TFRMNS,# *.T4»' DATA RASFS',T5, 

549 


*' CITIFS**/*' TYPF IN DATA base LOCATIONS WITH FORMAT A(|v,A«)*> 

550 


REA0(5»I5) CnPASECI) ,T=1.NT) 

551 

15 

format (6 ( i x* ar ) i 

552 


WRITE(6,16) N7» (NPASF(I) ,T=1,m7) 

553 

16 

FoRMAT<I5,' DATA BASES ARE AT* »6(2X , *4) ) 

554 


WRlTE(6, 161 ) 

555 

161 

FORMAT!' TYPF IN CITY V-H WITH FOR M AT (Xjy, I5#2X, TS> * > 

556 


READ(5»17)HvERT!T) ,IH0RZN(I) ,T S 1*NCITY) 

557 

17 

FORMAT! !33X# IS, 2X, 15)) 

556 


WRITE!6,7G) 

559 

76 

FORMAT!' TYPE IN PTO NO,, NAME, MAPPING Apr, *, 

560 


* 'AND TRAFFIC'*/*' WITH FORMAT 14 , 1 X * soft , 14 *6FR,2' ) 

561 


00 70 1=1 »N1 

562 


REAp(5*flO) Tl , (NAMFSTl I* J) , J=1 *4) , t ADO( T ) ,MAPA n P( I ) , 1 (TRaFO( T»K #L) » 

563 


* K=1 *2) *L=1 *M7) 

564 


IN0X D T( I )=II 

565 

79 

continue 

566 

80 

FORMAT! ! A4 , IX* 346, A4, T2»I4,4FlO.2/'*F10,2)) 

567 

10 

FORMAT (315) 

568 


RFTURN 

569 


Subroutine crfaop(M2) 
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570 

C 

******************** 

571 

C 


572 

c create 1 a rate application matrix irateu«n?»n 2 ) 

573 

c 


574 

c 

******************** 

575 


WRlTE*fi»83> 

576 

83 

FORMAT** type in mo. of rate structupfs umdfr*. 

577 


* /» • consideration WITH format 13* > 

578 


RFAO *5,50) HP. 

579 


WRITE* ("84) 

580 

84 

FORMAT* ♦ TYPE IN RATE APPLICATION To FACH COMRN. *» 

581 


* /* • WRT EACH SYS. T^RM, WITH FORMAT IOIrM 

552 


DO 11 TRATE-l *N2 

583 


READ (5*10Q> (IRATEJ *U»TRATf> ,J=1 >"?) 

584 

11 

CONTINI »E 

585 


WRITE*6*71> 

586 

71 

FORMAT*' READ IN TRAFFIC D r NSTTY TYPE AND RATE STRUCTURE" , 

557 


* /*• FOR EACH CITY WITH FORMAT 80T1»> 

558 


READ *5*72) < (IRAND<I,J), J=l,2> ,1=1 *NCITY) 

589 

72 

Format* ( soil) ) 

590 

50 

format *13) 

591 

100 

FORMAT *1012) 

592 


return 

593 


SUBROUTINE CREADC (N3) 

594 

C 

******************* 

595 

C 


596 

C READ IN NAMES* UTILIZATION FACTORS AND CAPACITY PISURFS 

597 

c for 

LINES to re used IN THE SYSTEM 

598 

c 


599 

c 

******************* 

600 


WRlTE*8»85) 

601 

85 

FORMAT* • TYPF IN NO. OF LIME TYPES APPTCArLF WITH FORMAT 13’ > 

602 


RFAD *5»50) N3 

603 


WRITE *6»86) 

604 

86 

FORMAT*' TYPE IN NAME» CAPACITY* UTIL. FACTO* AVAIL. FOR *» 

605 


♦ /«• FACH LINE TYPE WTTh FORMAT Aft*lX, T6. 1 X,F3.2,?() X* !i ) • ) 

606 


DO 12 1=1, N3 

607 


REAO*5.100>LTNAMF<I>#LIMCAP*T> »llTUT7*n »t IMMIX(i),tDijPIX*T 

608 

12 

CONTINUE 

609 

50 

FORMAT < 13) 

610 

100 

FORMAT* A6» IX* I6»lX,F3.2»2<lx» 11 1 ) 

611 


RETURN 

612 


SUBROUTINE CRFADD (N4) 

613 

c 

******************** 

614 

c 


615 

C CRFATF a MATRIX op RASIC INSTALLATION a HO RECURRING C^STS 

616 

C FOR 

chargeable items* assuming cost ts a l tmfap function 

617 

c 


618 

c 

******************** 

619 


write to, R7) 

620 

87 

FORMAT*' TYPE IN NO. OF OEVICFS AND MAMFs FO» EACH L TNr TYPE 1 

621 


* /*• WITH FORMAT I3/10*A6, IX) * ) 

622 


RFAD *5,50) N4, *NAMEHW*I) ,I=l,M4) 

623 


WPl TF (6*88) 

624 

88 

FORMAT*' type in INST. AND REOllRR. COSTS WRT *, 

625 


* /►» RATE STRUCTUPF, LINF TYPE, UEVICF, TRAFFIC D p NSTT Y ♦, 

626 


* /,* AND DUPLEXING MODE WTi>i FORMAT 2FR.2/2F 9.?') 
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6?7 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 
636 

639 

640 

641 

642 

643 

644 

645 

646 

647 
646 

649 

650 

651 

652 

653 

654 

655 

656 

657 
656 

659 

660 
661 
662 

663 

664 

665 

666 
667 
666 

669 

670 

671 

672 

673 

674 

675 

676 

677 
676 
679 
660 
6B1 
6*2 
6*3 


00 13 TRATrsi #N2 
00 13 TLINF=1*N3 
00 13 TDVICE=I*N4 
DO 13 iDNSTYsl # 5 

READ (5 » 100) <<AlNSTe<IPATF*ILlNF*TnVirF*TnwSTY,JiK)fK=lf?>>,J=l 
READ <5#l00M (RECPr(IRATE»TLXNEPlOVrcr^TPM5TY* J#K> # #J>) #J=1 #*> 

13 CONTINUE 

100 FORMAT <2F<».2/2F9.2) 

50 FORMAT < 13/# 10 1 Aft# 1 X ) ) 

RETURN 

subroutine crfaoe 

c **♦+**++****4****++#* 

c 

c CPEAXE a MATRIX of BASIC INSTALLATION and RFCtlPPTMG COSTS FOR 
C LINES • COST MAY OR MAYNOT BE A LINEAR FUNCTION OF DlSTANCF 
C 

C ********************* 

WRITE (6*69) 

fl9 FORMAT ( ' TYRE IN INST. COSTS FOP I.TNFS WRT *• 

1 ✓ RATF. LINE. DENSITY. «NP pUPl.FXIHG MODF *. 

2 /.• WITH FORMAT 4F9.2*) 

WRITF (ft* 90 ) 

90 FORMAT** TYPE IN INDF* FOR LINFARtTY OF L INF RFCUP, COST • t 

1 /*• FUNCTION WITH 1=LINEAP AMP NONLTHFAR OTHFRWI«E». 

2 / * * WITH FORMAT II FOR EACH LTNF TYPF*) 

WRITE ( 6*91 ) 

91 FORMAT!* TYPE IN RECUP. COSTS WITH FOPMAT 4F9.2 IF LTHFaR ** 

1 /.» WITH FORMAT 10FR.3/10FB.J j F NONLINEAR** 

2 /* * IF NONLINEAR. U5F 10FR.2* > 

DO 14 IRATE=1*N2 

DO 14 ILINF=1»N3 
REAP (5. 200 > INDEX 

IFLAO< IRATE* ILINF)=INQEX OLlMF COST LTNFAPITY INDICATOR 
DO 14 TDNSTY=1.3 

READ (5*!00> ( ( ANSTl N( IRATE* IL INF * IPNFTY* I *U)*jsl*2)*T51*?) 

IF < INDEX. NF.l) GO TO 3 
C LINEAR COST FUNCTION 

READ (5*100) ( (RECRt.N(IRATE*ItlNP*TPNFTY*T*J) *jri *2) *1=1*2) 

GO TO 14 

3 CONTINUE 0 NONLINEAR COST FUNCTION 

READ (S*40)> ( (RECRLN(IRATF*ILTNF*TPNSTY*T*J) *Jsi*lft) *1=1*2) 

14 CONTINUE 

100 FORMAT ( I4F9.2) ) 

200 FORMAT (ID 

401 FORMAT ( ( 10F8.3/10F8.?) » 

RETURN 

FUNCTION LOCAL (NL) 

C ******************** 

c 

C FIND LOCAL INDFX FOR SYRTFM TFPMINATION WITH TD NL 
C 

C ******************** 

LOCAL=0 

IF(NL.FO.O) RETURN 
DO 4001 NN=1.N1 

lF(INDXPT(NN).FO.NL) GOTO 400? 

4001 CONTINUE 
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684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 
7ns 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 
720 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 


8FTURN 

4002 LOCALS 
return 

subroutine ovfrfuj.k) 

C ****++**♦**+*♦*♦**♦* 

c 

C STORE OVERFLOW ELEMENT (J,K) AT LOCATION lOV^Q OF TABLE 
C LA AND PUT A MARK 511 AT LOCATTON J OF TABLF MA (PSTNCE) 

€ 

C «****«*♦+**♦****+**♦ 

IF 1 1 OVER 1 *GE* NMAX) GOTO 8000 
CALL RACK (JfSlltlf DSTNCE ) 

I VRD t I^VERl # 1 1 -J 
IVRD f IOVER1 f 2) -K 
lOVERl-lOVFRl *1 
RETURN 

8000 CONTINUE 
WR!TE<ft*en01) 

8001 FORMAT<2Xf* THE OVFRF1.0W TARLE HAS BFFM FltLLY LOAnPH f * * 

* /f2X#» PLEASE TNECREASF ITS 5I7FM 
STOP 

SUBROUTINE creaor 

c ***♦******♦**+*+**** 

c 

c rfceive OATA FOR RESPONSE TIME CALCULATION 

c 

C MSLIN(NP9f2)= INPUT MSG LENGTH AS A FUNCTION OF TYPF AND PRIORITY 
C MSLOUT <NP9*2 ) -OUTPUT Mc;g LENGTH AS A n f NC T TON OF TYPE AMO PRIORITY 
C A^SL 1 7) r AVERAGE MSG LFNTM FOP 

C 1=P0LLING 2=NAK RFSPONSF 3=INPUT WITH PRIORITY \ 

c 4 = input msgs 5=output msg with ppto i 

C 6=OUTPUT MSGS WITH PRTO 2 7=ALL M SGS 
C TIMXMT 1 7 #NP3) -AVERAGE TRANSMISSION TfMF FOR AftOVF TTE M S 
C RATPRltNP9t2t2)=0UTPUT MSG OISTRRUTN A*«n OUT-flOlNG MS« PATIo *Y PRTO 
C N# 1 # 1 “ PERCENT OF OUTPUT m 5G GFNT’O WJTH pPtn 1 TF ITS TYPE IS N 

C N#1f£> a PERECNT OF OUTPUT *SG WHOS^ DESTINATION I* OUTS T OF OF 

C RmOT<NP°'2) = TNPUT TRAFFIC 0ISTRI # AS A FUNCTION OF TYPF A^n PRIORITY 
C RATI0<NP9f?> -OUTPUT TRAFFIC OTSTRT. AS A F' JNOTTOM OF TY*F ANn PRIORITY 
C 

c ******************** 

DIMENSION MSLIN(NP<?f 2) fRATTO (NPO*2) fRATTOT < NP« ,2) , 

1 MSLOUT <NP9# ? J fMSGMAM(MP9) f 

2 NPt<NP3 ) fMAK <NP3 ) fNPLOH<NP3) fMAkOHUiPS) f 

3 M0H(NP3! ,TAHDM(MP3) FT A PDfNP3) 

WPt TE (B f 771 ) 

771 FORMAT* • TYPE IN MPLf NAKf NPLOHf MAKOHf hOHf*f 

* /f ♦ TAMOMf TAD IN FORMAT C5I4f2F7.S»*> 

R F AQ { 5 f 77 ) ( NPU ( I ) f NA K ( I > f MPLOH ( I ) f N A V OH C T > f 

* MOH(I> fTAMOM(I) fTAPO(I) fI=1fN3) 

WRITF C TWTf 73) <LINCAP ( T > fNPL ( I > fMaK C I > f WLOHCl > fNAKOHI T ) , 

* MOM ( T J fTAMdM < I ) f T APO ( I ) * T=1 fN3 ) 

73 FORMAT 1 ( 2X f T5 » 3X f ’POLL CHAR •=* f T4 f * MAX ChAP • “ * f J4 P * POlL 0/H=* f 

1 I4f /fIOXf *NAK 0/H=*fI4f* MSo o/H=*fT4p 

2 / f 1 0 X p * MPSEM- * f FR # 3 # * PPSFM=« fF8-3) ) 

77 FORMATC (5I4f2F7.5) ) 

WR T TE <6f 772) 

772 FORMAK* TYPE IN NO* OF MSG TYPFSf AMP TRAFFIC STATISTICS* * 
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741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 


1 */** SUCH AS MSGNAM* MslIN, MsLOUT* RATIO WITH'* 

2 ,/*• e 0P M AT T4/(A6*2(2I4»2F6.T1)t> 

RFAD (5* 77) NTYP 

RFAD(5*179) <MSGNAMU>*IWSLIM<T*J)»M5L0HT(t*J)* 

* RATI°I(I*J)*RATI0<I*J>»J=l*2>*irl*NTVP> 

179 FORMAT! !A6*2!?I4*2F6»3) ) ) 

RF AO 1 5*81 ) CPUAVG 
81 FORMATCF7.4) 

C 

C calculate average MSG length 

C 

00 61 1=3*7 
AMSLtI)=0. 

61 CONTINUE 
00 58 1=1*4 

ASUM<I)=0. 

56 CONTINUE 

00 62 I=1*MTY C 
00 66 J=l*2 
J1=J+? 

J2=U+4 

AM5L < J1 ) =AMSL ( J1 ) +MSLINC I * J) *RATTOI ( T * J) 

AM5L < J2 ) = A MSL ( J2 ) +MSL0UT < I , J > *R AT TO ! T * J > 

ASt)W(J)=A5tJM( J)+RATTOI(I»J) 

ASUM(Jl>=AS')M(Jt )+RftTl0CT*J) 

66 continue 

62 CONTINUE 

BSUM=0. 

DO 67 T=i*4 
J1=I+? 

A«SL < 7 ) SAW5L ! 7 ) +A m*;l ( Jl I 
nsUM=BSUM+ASUM«I> 

67 CONTINUE 

AMSL(7I=AMSL(7)/9SUM oovfrall AVG» m SG i.fngth 
IFCasUM(4) ,F0. 0,) GOTO 6" 

AM5L I 6 ) =A«SL ( 6 ) / ASUM 1 4 ) 

68 continue 

AmSL! 5)=AMSL!5)/ASUM!3> PAVfi. MSG LFNTH FOR PRIO=1 

AMSL(4> = <AMSL<3M-AMSL!4))/(ASUM<n'»ASUM(?)) OAVG INRUT MSG LFN, 

AMSL!3)=AVSL!3)/ASUM!1 > 

WRITE! IWT *105) !AMSL<T>*I=T,7) 

105 FORMAT!/, SX,*AV6. INPUT MS« WITH pRIO t=*,F6,t** CHARS', 

1 /*5X*'AVG. INPUT MSG ',F6.1,» CHARS' * 

2 /*SX,*AVG. OUTPUT MSG W/H P"lO l='»F6.t** CHARS* ' * 

3 /*5X*'AVG* OUTPUT MSG WITH PRIOps* ,F6. 1 * ♦ CHARS', 

4 / *5X* • OVERALL Avg. m SG =»*F6.t,' CHAPS') 

00 65 K=1*N3 

AMSL!1)=NPL<K) 

AMSL ( 2) =NAK (k ) 

Tl,MXMT(l*K) = !AM<;L(l>+NPLOH!K))*fl./LTNCAp!F)+TAMnM(K) 
TIMXMT!2*K)=!ANSL(2)+NAK0HIK) >*8./LINCAp!K)+TAPr!X) 

00 63 J=3*7 

TlMXMT(J,K)=!AMSL!U)*M!>H(X))*ft./LTNCAp!K)+TAMnM!K) 

63 CONTTNUF 
65 CONTINUE 

BSUMrASUM ( 3 > + ASUM ! 4 ) 

rfturn 
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79e 


ShBROUTINF cwaitc 


709 

C 



800 

C 



801 

C PpF 

-CALCULATE CPU WAIT TI^E 


802 

c 



805 

c 



004 


RHOC PU=XSAC *CPUA V6/MPB0C 


805 


WRITE< 100*050) RHnCPU 


806 

850 

FORMAT! • CPU tlTILI7ATTON PER PROCESSOR IK *» 

F5.3) 

007 


IF IRHOCPU .LE. .0) 60T0 051 


808 


WRITE !6*0S5) 


809 

855 

FOPMATC THE CPU IS OVERLOAOEO, THEREFORE IT 

T5 NO MSP TO •» 

810 


* *G0 ^HRTHFR. 1 ) 


811 


STOP 


812 

851 

continue 


815 


0FTA=RHOCPII 


814 


if! MPROC .EQ. 1> GOTO 700 


815 


PH02=RHOCPU**P 


816 


BFTA=?**RM02/! i+RHOCPUl 


817 


IF! MPROC .EQ. 2> POTO 700 


818 


RHO4=RH0CPU**4 


819 


BETA=2‘)6*RHO4/!24+7?*RH0CPII+96*RHO? 


820 


♦ +64*RH02*RHOCPU-740*RH04 ) 


821 

700 

CONTINUE 


822 


W A I T ( 4 ) SCRUAV6* ! RET A/ (MPROE* ( 1 . -PH^CPt I) > *1 » 


825 


WAITC4)=WAIT!4>*NRE0SW 


824 


RETURN 


825 


END 
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1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


SURROUTINF RGNNETfjRERN, NOppCM* nHMp# TftO* NHMpR) 


PFVELOP A RFGXONAL MULTIDROP NFTWflRK • STARTING WITH A S™ 1 * 
NETWORK ANn THFN OPTIMIZE IT RY ESAU-WILLIA^S MFTMO0* GlVFN 

thf following augments: 


c 
c 
c 
c 
c 
c 

C UPEGNS THF INDEX FOR THE REGION UNnpp COHSTOFRATTON 
C NOPEGN= THF NUMHER OF SYSTEM TERMINATIONS IN oFOION JPEON 
C NUMR= AN ARRAY THAT CONTAINS INDICES FOR ALL SYSTEM 
C terminations IN REGION JPFGN 

0 IGO= l IF NETWORK OPTIMIZATION IS TO PF PERFORMED 
C 

c notf: node and SYSTEM TERMINATION apf fxchangfaplf 
c 

c ******************** 

PAPAMFTEP NP1=I30. MP9Sir WP3=4* NP4=3 
PARAMETER MP7=4 

parameter IWT=J00» MW =4* wnc=360 
PARAMETER NP6= ( NPC *NPr/2-N°C +11/4+1 
C0MMON/C0MST/ N1 *N?*N?*N4» f, 7*NClTY 

/PEP / 1 REF < NPC • » TR AFD t NP I » 2 « md? 1 . OSTNCF < NP6 1 » MAPADP < NP I) 
/I.INCHR/ LINMIXCNP7>» LTMCAptNP*»» HTILI?<NP3> 

/INF/ IPATFJ(NP?»NP2)»IRANn(NPC*2) *TFLAG(NP?»NP3> 

/El N/ S VR < NP 1 1 * NRSC ( MW > » NUMpP < MW I t Tp ft pnN ( N»> 1 ) » TR AF * T ( NP 1 1 
/NAME/NAMEST (NP1 . 4 ) »L INAME (N^B) .NAMfhW (NP4) 

/SUM/ ASUM<41*RSUM 

/msla/ amsl<t> 

/POUND/ NTERMS* TIMPEO » MPPOC » MPL^T 
/ADO/ IADD inpi i .kchg.kadd 
/perp/ pholinui.rrptjm 

DIMENSION COSTEW (MP1 *4 ) » I APRAV (Up) *5) » ARP At <MP1 .21 
DIMENSION T I MRS P < NP 1 ) » TRFSI »M ( NP U ? > * T T moi >t * MP 1 ) 

DIMENSION NLINFSIMP1»MP3) » LDUmMY(NP?>, N'IMR(I) 

DIMENSION IDSTfNPl)»LMKCHWrNP3,MP4»8>»LMKrLM(wpr,»!>) 

DIMENSION ICSTHW(NPl»NP4t?< »ICRTLN(NP1 » 21 > ITCOSTIWPl .?> 
DIMENSION LSUR tNPI) .M«UJB tMPt l *NSim tNPI 1 
DIMENSION I BL A NK < NP 1 1 . JCH AR < 2 1 
DIMENSION NUMRRdl 
DIMENSION RHOFINPU 
EQUIVALENCE <JCHAR,ICHAR> 

DATA JRLANF/1 «/ 

RSPTIMSO. 

IPOINT=0 

INTE6FR TCOST t . TC0ST2.C0ST . COST c W 


initialize cost array, inrepenrfnt of i.imf typf 


DO 399 Kl=i.Nl 
DO 399 K3=!.2 
ICSTLNfKl .K3>=0 
DO 399 K4=1»N4 

ICSTHW (K1 .k4*K3) =0 
399 CONTINUE 

MNl=NRSC(JREGN) QGLORAL INOFX FOR RSC 
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57 

C FIND the LOCAL RSC INDFX IN THF RFfilON ARRAY 


56 

c 



59 


DO 9A fNDsl»NOREGN 


60 


IFINN1 ,EO, NUMR(INn)) GOTO 1*0 


61 

98 

CONTINUE 


62 

189 

CONTINUE 


63 


ipsc=ind 


64 

c 



65 

C RlilLO A STAR NETWORK 


66 

c 



67 


call starew 


68 

c 



69 

c point out star network 


70 

c 



71 


CALL SUMPRT<N0PEGM»1> 


72 


IF< IGO .EO. 0) GOTO *70 


73 

c 



74 

C DFVELOP A “ULTIDROP NETWOPK UTILIZING THF 


75 

c esau-williams algorithm 


76 

c 



77 


MAX5AV-0 


70 


maxm^o 


79 


MAXL-0 


80 


maxk=o 


81 


maxki=o 


82 


maxlin=o 


83 


MAXNOt=0 


84 


LINNEW-0 


85 


RSPMAX^O, 


86 


RHOMAX=0. 


87 


I CHAR- * * 


88 


ITALLY-0 


89 


jtally=o 


90 


kchg=j 


91 


KADD=1 


92 


IOK = 0 


93 


1nTRY=0 


94 


cacu rsswiL 


95 


WRITE C6#933) ITALLY# JTALLY 


96 

933 

format < 2X*'TRTLNK HAS BEEN ACCFSSFO FOP *,JO,t TIMES 

97 


1 /*2X**UPNETW MAS RFEN ACCFSSEO FOR **T<>»* 

ttmfsm 

98 

979 

continue 


99 


return 


too 


subroutine starew 


101 

C 

******************** 


102 

C 



103 

c form the initial regional star network* tarray* 

amo ftno 

104 

C COST* COSTFW 


105 

C MOREGNSNUMRER OF system TFRMINATIOmS in THE region 

106 

c 



107 

c 

******************** 


100 


INTEGER cost 


109 


DO 100 K3=l* NOREGN 


110 


HO 110 K4sg»4 


111 


IARRAYCK3»K4»=0 


112 

110 

CONTINUE 


113 


KK=NHMR«K3) 
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114 


IARPAYIK3»l>=IAnD(KK> 

115 


I ARRAY (K3»5)-IRSC 0 LOCAL IMOF* FOR p^C 

116 


ARRAY(K3*1)=TRAF0N<KK> 

117 


ARRAY<K3*2)=TRAFITtKK> 

110 


TIMRSP(K30sO. 

119 

100 

continue 

120 


IAPRATURSC*1)RN0RFGN - 1 BNO. OF NO"FS UNDER RSC 

121 


NM=1 OASSUMING THE 1ST SUCCESSOR WITH TnOFX 1 

122 


iFdRSC *E0* t» NM=2 BIST SUCCESSOR IS WTTH INDEX 2 

123 


IARRAY(IRSC»2)=NM 

124 


iarray<irsc*s)=o 

125 

C 


126 

c relate all of rscs successors 

127 

c 


128 


00 200 KS=1» NOREGN 

129 


IF(KS .EG. TRSC) GOTO 200 

130 


nm=nm ♦ 1 

131 


IF(NM .EO. IRSC) NM=NM + 1 

132 


IF (NM ,GT. NOREGN) GOTO 200 BEND OF SUeCFSSORS» LINK 

133 


IA»RAY(K5t3>=NM 

134 


IARRAY(NMpH)=KS 

135 

200 

continue 

136 

c 


137 

C DETERMINE linf type for cfntral links to rsc 

138 

c 


139 


DO 550 N00F=1» NOREGN 

140 


IF (NODE .EG. IRSC) GOTO 555 

141 


TRFtN=ARRAY(NODEtl)+0,5 

142 


TRF0UT=ARRAY<N0DE»2)*.5 

143 


NN2-NUMR ( NODE ) 

144 


0STN=DIST(NN1.NN2) 

145 


lDST<NODF)=nSTN 

146 


COSTEW < NODE • 4 ) =DSTN 

147 

c 


148 

C TAKE A FIRST SUES* FOR LINS CONFIGURATION 

149 

c 


150 


COST=0 

151 


RHO=0. 

152 


MDROP= I ARRAY (NOOF . 1 ) +1 

153 


CALL L I NNUM ( TRF I N * TpFOUT * LDt <MM Y » H NOLO # R ♦ RHO ) 

154 

781 

CONTINUE 

155 

C 


156 

C COMPUTE INITIAL RFPONSE TIME 

157 

c 


158 


IKONT=0 

159 


DO 7A3 I-1.N3 

160 


IF(LDUMMY(I> .NE, 0) IKONT=tKONTd 

161 

703 

CONTINUE 

162 


AINTRFSTRFIM 

163 


OUTTRF-TRFOUT 

164 


IF ( IKONT .EO. I .ANn. LDUMMY (L INOLD) ,Fo. 1) GOTO 77? 

165 

C 


166 

C Rr^PONSF TIME CALCULATION NEFOS MODIFICATION 

167 

c 


168 


ACAP=0. 

169 


DO 771 NL-l *N3 

170 


AC AP= A C AP+L T NC AP ( NL > * LDUMM Y t ML) 
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171 


UDUMMY(NL>sO 

172 

771 

continue 

173 


LpiJM'lY (LTNOLD) = t 

174 


AINTRF=TRFlN'*LtNCAPILINOLD)/«CAP OPFRCFMT traffic 

175 


OUTTRF=TRFOtlT*LTNCAP<Liri«Lr)J/ACAP 

176 

772 

CONTINUF 

177 


CALL RSPNSE < A I NTRF • PlJTTPF , L IMOLP ♦ MOPOP * 10* ) 

178 


IF ( TOK .ro. n GOTO 773 

179 


IF ILlNOLO ,F0. M3) GOTO 77 A 

180 


LOtJMMY<LINOLn)=fl 

181 


LINOLD = L INOLO+1 

182 


LOt IMM Y ( L I HOLD ) = 1 

183 


ROTO 775 

184 

774 

CONTINUE 

185 


NLL=0 

186 


M33=N3-1 

187 


00 776 Irl »M33 

188 


IF«LPMMMY<I> .FQ.n ) GOTO 776 

189 


nll=i 

190 


GOTO 7«0 

191 

776 

CONTINUE 

192 


LDUMi«Y(i)=l 

193 


GOTO 775 

194 

780 

CONTINUE 

195 


ldummy<nlu=o 

196 


Lot (MM Y t NLL+ 1 ) =L O) IMMV ( NLL ♦ 1 ) + 1 

197 

775 

CONTINUE 

19fl 


CALL RHOFUN(TRFTtJ r TRFOUT#LOUMMY,l I MPl.P t P HOL T N t RMf) ) 

199 


GOTO 701 

200 

773 

COHTINUF 

201 


TIMP5P ( NODF ) = R5 n TIM 

202 


KCHG=2 

203 


CALL ISUMtJP( IRSC»NOnF»0*Co5T) 

204 


RHOF < NOPF ) =RHO 

205 


COSTEW ( NODE *1> = COST 

206 


COSTFw ( NODE * 2 > =L INOLO 

207 


DO 499 NLS1*N3 

208 


NL T NES ( NODE • NL > =LnUMM Y f NL > 

209 


no 499 NM=1«2 

210 


I CSTLN ( NODE • NM > =1 CSTLN ( NODE »NM ) +t NKCLN ( ML • N« ) 

211 


DO 499 NK=1»N4 

212 


I CS THW ( NOP E t N« » NM > SLNK CHW < NL » MX » MM > ♦ T CSThW ( NODF ' 

213 

499 

CONTINUE 

214 


jtraf=trfin+trfout 

215 


JTRAF5JTWAF/UTILI2 (L INOLO) 

216 


COSTFW ( NODE * 3 > = JTR AF/L I N r AP < 1. 1 NOI n > ♦ t 

217 


GOTO 550 

218 

555 

CONTINUE 

219 

C 


220 

C ASSUMING TRAFFIC AT IPSC IS TA4TN CARf: OF AUTOMATICALLY 

221 

c 


222 


DO 49fl NL=1*N3 

223 


NLINES(NOOE#ML>=0 

224 

498 

CONTINUE 

225 


COSTFw t NODE f 1 ) =rt 

226 


COSTFW (NODE *2 )=0 

227 


COSTFW (NOOE ' 3 > = 0 
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226 


COSTPW I NODE * 4 ) = 0 

229 


rhof Inode >s0. 

230 

550 

CONTINUE 

231 


RETURN 

232 


SUBROUTINE ISUMUP<L1*L2»LT»IC> 

233 

C 

*i****************** 

234 

C 


235 

c calculate- cost between nodes li ant> l? Ann Aon tt to 

236 

C TOTAL COST IC WHERF LTsLINE TY**E 

237 

c 


238 

c 


239 


LLlsNHWR(Ll) 

240 


Ll2=NU“R<L?> 

241 


CALL ICOSTJ(LnUMMY.LLJ *LL?»LNKCMW»I NKCLN) 

242 


KK=N3 

243 


if(lt.ne.o> kk=i 

244 


DO 211 LINTYP=1 *KK 

245 


LTYP=LINTYP 

246 


if<kk.eq.i> ltypslt 

247 


no 221 11 = 1*2 

246 


TC=IC+LNKCLN(LTYP»I1> 

249 


PO 222 12=1 *N4 

250 


TC=IC+LNKCHW(LTYP»I2»I1) 

251 

22? 

CONTINUE 

252 

221 

CONTTNUF 

253 

?it 

CONTINUE 

254 


return 

255 


subroutinf esswil 

256 

c 

******************** 

257 

c 


250 

C T9Y 

AGAIN To OPTIMIZE THE NETWORK 

259 

c 


260 

c 

******************** 

261 

soon 

CONTINUE 

262 


K=IARRAY(IRSC*2) I3FTRST SUBNETWORK IINopR RSC 

263 


KNEXT=IARRAY(K*3> ONFXT SUBNETWORK UNDER RSC 

264 


IF«KNEXT ,EO, 0) ROTO 599 OONLY ONE SUBNETWORK 

265 

560 

CONTINUE 

266 


IOK=fl 

267 


L=IARRAY(IRSC*2> PK-SUBNET IS TO PE LlNKEo TO L -SUBNET 

268 

570 

CONTINUE 

269 


IF<L .NE. fO SOTO S75 

270 


L=IARRAY<L*3) 

271 


IF<L,EO.O) ROTO 660 

272 

575 

CONTINUE 

273 


K1=NI.JMR(K> 

274 


DpFF=DIST (NNl *K1) 

275 

c 


276 

C Tf ST TOTAL NO. OF TERMINALS IF K AND L ARE OOmRINFO 

277 

c 


278 


IHTRY=0 VINDICATION of entry TO TRYLMK 

279 


ljne=costew<k*2> 

280 


IF«LINCAP(LINE» .EO. R600) 60 TO *>P5 PNO MIILTTnROPPTNR 

281 


NODET = I ARRAY (K * 1 ) + 1 ARRAYIL* 1 )+2 

262 


)F(N0nET .RT, N TERMS) GOTO SB5 PTpO NANY TFBMNTALS 

283 


M=L 

284 


KI=K 
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265 

560 

CONTINUE 

266 


PIRNUMR(M) 

267 


0TRY=OIST<Kl»Ml>/2. 

268 


IPIDTRY ,6T. DREF) GOTO 140 

269 


CALL TRVLNK(K»KI*L#M) 8 m ts the insepttoh NODE 

290 


IF<IOK .EG. 0) GOTO 58$ 

291 

140 

continue 

292 


M=NXTNOD(L*M) onext node under m on l-sugnft 

293 


IE<M *NE. 0) GOTO 580 OHO MORE NODES UNO^R M ON (.■ 

294 


KI“NXTNOD(K#Kl 1 GSTART WITH NEXT MODE ON K-SU*»NET 

295 


IF<KI .EG. 01 GOTO 58S 

296 


Kl=NUMRtKI> 

297 


M=L 

290 


goto sro 

299 

S85 

continue 

300 


L2lARRAY<Lf3> I3NEXT SUCCESSOR 

301 


IF<L .NE. 01 GOTO 570 

302 

660 

CONTINUE 

303 


K=IARRAY(K,3) 

304 


IF*K .NE. 01 GOTO 560 I3NOT AN END YET, REPEAT THE 

305 

C 


306 

C AIL 

POSSIBLE combinations have been TRIED 

307 

C 


300 


IFIMAXSAV .LE* 0> GOTO 5«9 I3NO NEEn To GO GIJRTHEP 

309 

C 


310 

C UPDATE NETWORK RASED ON UP-TO-DATE MAXIMUM DOST SAVING 

311 

c parameters 

312 

c 


313 


JTALLY=UTALLY+1 

3J4 


CALL UPNETW 

315 

c 


316 

C RFINITIALI7ATION 

317 

c 


31B 


rspmax=o. 

319 


maxsav=o 

320 


KAXK=0 

321 

. 

MAXL=0 

322 


MAXM=0 

323 


MAXKt=0 

324 


MAXLIN=0 

325 


linnew=o 

326 


kaxnol-o 

327 


RHOMAXSO. 

320 


GOTO 5000 

329 

S9Q 

continue 

330 

C 


331 

c print out costs for thf ortimi7ed niilttorop network 

332 

c 


333 


CALL MIJTORP 

334 

c 


335 

c print out the optimised multidrop network 

336 

c 


337 


CALL MRTPRT 

338 


IF< MPLOT .NE* 1> GOTO 50 

339 


CALL CALPLT 

340 

50 

CONTINUE 

341 


RETURN 


A-21 


77-53, Vol„ IV 


34? 

343 

344 

345 

346 

347 
34ft 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 
386 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 


subroutine trylnk<kl»kil*u ,ml> 

C ******************** 

c 

C TpY TO ELIMINATE CENTRAL LINK KL ANH LINK IT TO TWF SUBNETWORK 
C LL THROUGH SYSTEM TERMINATIONS KTL ANO ML. 

C 

C ******************** 

INTEGER COSTKMfCOST 

itally=itally+i 

IF<INTRY .FO. 1) SOTO 719 
TRFlN=ARRAY(KL*l>+ARRAY(LL.l>*n.G 
TrFOUT=AHPAY (KL*2 > +ARRAY (LL . ?> +0 . S 
C 

C FIND THf LINE WITH THE ENOUGH CAPACITY TO HANoLF 
C THF TOTAL TRAFFIC ON THE PROPOSED SHIFTWORK LL 
C 

CALL 1. 1 NNLlv ( TRF I N . TRFOUT * LOUM^Y * L I NNFW * I » PH« ) 
IFILINCAPCLINNEW) .EO. 0600) SOTO 13? 

LINUP=LINMEW-1 

IFILINHP .EG. 0) SOTO 7lg 

DO 711 NL=ltLlNUP 

IF(LOUMMY(NL) .FO. 0> SOTO 7tl 
GOTO 13? 

711 CONTINUE 

712 continue 

NLNEW=LDUMMY (LINNrw) 

IF(NLMFW .ST. 1) SOTO 132 OPO»E THAN 1 I.tmE NOT A( LOWFO 
COSTaCOSTFW(LLtl) 

LINOLD=COSTEW(LL*?) 

NL0LO-COSTFW(LL»3) 

MCOSTL=COFT 

3000 CONTINUE 

c 

C TEST RESPONSE TIMF. if NOT SATISFlFOf INCREASE LIHF CAPACTTy 
C 

CALL RSPT5T<ki..LL*LINNEW*IOK> 

IF ( IOK .EG. 1) GOTO 3001 
C 

c IF LINE TYPE IS THE HIGHEST. NO NFrn TO SO FUoTHEP 
C 

IF<LINNEW .EO. N3> SOTO 13? 

Lf?UMWY<LINNEW>=0 

LINNEW=LINNEW+1 

IF(LINCAP(LINNEW) .EO. 0600) SOTO 132 

LDUMM Y (LI NMEW 1 5 1 

NLNEW=1 

CALL RHOFUN ( TRF I N . TRFOUT . LPUMMY . L I NNFW * RHOL T N » RHO ) 

GOTO 3000 

3001 CONTINUE 

lF(LINMEW.EQ,LINOLO.AND.NLOLD.EO.t> GOTO l3t 

CALL LCOSTK(IRSC.LL.l.MCOSTL) ONFW COST FOR SUBMFT (INr)F« LL 
131 CONTINUE 

LINOLD=COSTEW(KL»?> 

MCOSTK=COSTEW(KL* 1 ) 

NLOLD =C0STEW<KL»3) 

IF ( LINNEW .EO. LINOLP .ANO. NI.OLO .FP. 1) GOTO 133 

CALL LCOSTK (IRSC.KL.O.MCOSTK) PNFW COST FOP SURNFT UNDER KL 
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399 


GOTO 134 

400 

133 

continue 

401 


I temps 0 

402 


KADOS0 

403 


KCHGS2 

404 


C ALL I sum IP ( I RSC * K L . L I NNE W > I TE w» ) 

403 


MCOSTK=MCOSTK-I temp 

406 

134 

CONTINUE 

407 


iNTRYSl OFLAO THAT INDICATFS AN FNTRY TO TPYLNK 

406 


JSAVsCOSTEW < LU 1 1 > *COSTEW(KL » 1 > «< MCOSTL+MCOSTK ) 

409 

719 

CONTINUE 

410 


COSTKM=0 

411 


KAOOsO 

412 


CALL I SUMUP ( ML » K I L i L I NNEW » COSTk <*) 

413 


ISAV=JSAV-COSTKM 

414 


IF (ISAV .LE, MAXSAV) GO TO 13;? 

415 


RSPMAXSRSPTIM 

416 


maxsav=isav 

417 


MAXKsKL 

416 


MAXLsLL 

419 


MAXMsML 

420 


maxki=kil 

421 


MAXLIN= LINNEW 

422 


maxnol=nlnew 

423 


RHOMAXSRHO 

424 

132 

CONTINUE 

425 


Return 

426 


51 IBROUT INF LCOSTK 1 1 * N A » NB r TCOST J 

427 

C 

******************** 

426 

C 


429 

C 

FINO COST FOR A SUBNETWORK. NAsBEGTNNTNG nOOE FOR THF Si IRMFT 

430 

C 

TO BE EVALUATED. 

431 

C 

NR=1 WHEN COST FOP CENTRAL LINK NA IS TO RF TNCLUrtEP 

432 

C 

N 0 SO WHEN COST FOR CFNTRAL LINK MB IS NOT TO «»F tMCL"OFn 

433 

C 


434 

C 

*♦****#•****♦**•*•1*1* 

435 


INTEGER tcost 

436 


TCOSTSO 

437 


KCHGS2 

436 


CALL I SUMUP (T»NA»LINNEW»TC 0 ST> 

439 

C 


440 

C 

START COMPUTING SUBNET COST 

441 

C 


442 


JSONsIARRAY(NA.a> ® FIRST SUCCESSOR 

443 


IF< JSON.EO.O) GOTO 400 

444 

300 

continue 

445 


JPASIARRAY(JS0N»5) 

446 


CALL ISUMUPI JPA* JSON»LlNNFW, TCOST) 

447 


JSONSN XTNOD(NA.JSOM) 

448 


IF CJSON .FQ, 0) GO TO 400 Q CALL IT AN FND 

449 


60 TO 300 

450 

400 

CONTINUE 

451 


IF<NB *EO. 1) RETURN 

452 


ITEMPsO 

453 


kaddso 

454 


CALL ISUMUP<I*NA*LINNFW.ITFMP> 

455 


TC0ST=TC0ST-ITEMP 
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( 

456 


RETURN 

l 

457 


FUNCTION NXTN0DIL1 #MI ) 

f 

458 

C 

******************** 

* 

459 

C 


} 

460 

c 

FIND THE NEXT NODF IN THE SUBNET LI WHICH Ml RFLOMGS TO. 

i 

461 

c 

IN THE PROCESS# IF THF NEXT NOnE IS LI* 0 IS RETURNFD 

r 

462 

c 

OTHERWISE THE NEXT NOPE IS RETURNER* 


463 

c 



464 

c 

******************** 


465 


NxTN0D=0 

r 

466 


MM=M1 


4 £Z 

4|f 


XS0N=I*RRAY(hM#2) 

IFlKSON .EG. 0 .AND. MM .EG. Ll> RETUPN QA SINGLE NOPE 


•S9 

470 


IF IRSON .EG. 0» GO TO I ft NO SUCCESSOR 

Nxtnod=kson 

t"-' 

471 


RETURN 


472 

1 

CONTINUE 

i 

473 

c 


Tr’v 

474 

c 

LOOK FOR HIS NEXT BROTHER 

S';.. 

475 

c 


£1: 

476 


KRRO=IARRAY<MM.3J 


477 


IF CKBRO '.EG. 0) 60 TO 2 ONO MpRF SUCCESSORS WITH SAMr opFDFCFSSOR 


478 


nxtnoo=kbro 

<v! : . 

479 


return 


480 

2 

CONTINUE 

fr 

481 

C 


S'.' ■■ 

482 

C 

GO TO HIS FATHER 


483 

c 


Y' 

484 


MM = I ARRAY ( MM . 5 > 


485 


IF (MM ,NE. LI) GO TO 1 0 PACK TO THE OEGTNNTNG 


486 


return 

% 

467 


SPROUT INF UPNETW 


468 

c 

******************** 


489 

c 



490 

c 

UPDATE IARRAT and COSTEW RASED ON mAXIMUm-SAVING 


491 

c 

parameters obtained 


492 

c 



493 

c 

update traffic and no, of terminals fop l-surnet 


494 

c 


495 

c 

******************** 


496 


N0K=IARRAY(MAXK»1)*1 ONO. OF NODES BELOW MAXK 


497 


I ARRAYIMAXL. 1 )=IAPRAT (MAXt. 1 ) +NOK 


496 


ARRAT (MAXL . i»SARR AY (MAXL . I >+AP»A Y (MAXK . 1 > 


499 


ARRAY (MAXL .2) s ARRAY (MAXL* 2) + ARRAY (MAXK .2) 


500 

c 



501 

c 

UPDATE THE COSTEW 


502 

c 



503 


COSTEW C MAXL . J ) *C OSTEW ( MAXL » 1 ) +C0STFW t MAXK , 1 ) -MA XS AV 


504 


COSTEW <MAXL . 2 > =M AXL I N 


505 


COSTEW IMAXL # 3 > smAXNOL 


506 


C05TEW IMAXK . I )so 


507 


COSTEW < MAXK. 2 )=0 


500 


COSTEW < MAXK. 3 >=0 


509 


MAXKD-NUMR(MAXK) 


510 


MAXMD=NUMR<MAXM) 


511 


MAXKIO=NUMR(MAXKl) 


512 


C0STEW*MAXL*4) “COSTEW (MAXL .4) + COSTFW( m AXK .GI+DTST (MAXK lp.“AXMp ) 
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513 


• -r>IST<MAXKn*MMt) 

514 


RHOF < MA XL) sRHOMAX 

515 


COSTEW (MAXK»4) =0 

516 

C 


517 

c UPDATE MllLTlDROPPEO-tlNE RESPONSE TTMF 

516 

c 


519 


TIMRSP <MAXL ) sRSPMAX 

520 

91 

CONTINUE 

521 


KIPA=IARRAY(MAXKI»5) OPEMFMDFR KT*S PRFDFCFSSOR 

522 


MSONsIARRAY(MAXMtP) PlM»S 1ST SUCCFSSOR 

623 


CALL LNKOFFtMAXKI > OnELFTF Kl AS A SUCCESSOR OF KIPA 

524 


I ARRAY < MA XM , 2 ) =MAXK I 

525 


I ARRAY ( MAXK I , 5) SMAXM 

526 


IARRAY(MAXKI*T)=MSON 

527 


IFlMSON ,NE, 0) IARRAVIMS0N»4>=PAXKI 

526 


I ARRAY (MAXK 1 *4) :0 

529 


MAXM=MAXKI 

530 


MAXK15KIPA 

531 


IF(MAXM ,NE. MAXK) GOTO 91 

532 


return 

533 


FUNCTION jrOSTA(N»KREF> 

534 

C 

****************** 

535 

C 


536 

C PTNO partial SUM FOR ICSTt.N 

537 

c 


536 

c 

****************** 

539 


JCOSTA=0 

540 


DO 777 Kl=tiKREF 

541 


JCOST A= JCOST A + 1 C S TLM < K 1 * N ) 

542 

777 

CONTINUE 

543 


RETURN 

544 


FUNCTION JCOSTB<N»M»KREF) 

545 

C 

* ***************** 

546 

C 


547 

C FIND PARTIAL SUM FOR ICSTHW 

546 

c 


549 

c 

****************** 

550 


JCOSTRSO 

551 


DO 77 A KKS1»kREF 

552 


JCOSTpr JCOSTB+ICSTHW '■ KK t N » M ) 

553 

776 

continue 

554 


return 

555 


SUBROUTINE NETPrT 

556 

C 

******************** 

557 

C 


556 

c print out configuration of thf multidrop network 

559 

c 


560 

c 

******************** 

561 


DO 196 KK=1*N01 

562 


IBLANK(KK)sJBLANK 

563 

196 

CONTINUE 

564 


NNP=NUMRR(IrSC) 

565 


WRITE* IWT * 197) NN2 

566 

197 

FORMAT PEGIONAL CENTERS • » A4//»6X* 'SUMNFTWORK * » 

567 


* ‘BEGINS AT**//) 

568 


KP=1 

569 


ISON=IARRAY(IRSC‘2) 
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570 


IPOINTSISON 

571 


ISONRSNUMRR(ISON> 

572 


WRITE! I WT* 1981 ( IRLANK ( I ) » Tsl »K») »IS0MR 

573 

C 


574 

c cook for its first successor 

575 

c 


576 

190 

continue 

577 


IR0N=IARRAY<IP0INT.2) ocmrremt nodal index 

578 


IF t ISOM ,EO. 0> GOTO 191 OMO MORE SON 

579 


KP=KP + 1 GA LEVEL DEEPER 

550 


ISONR=UUMRR<ISON> 

581 


WRITE! IWT* 1921 ! I BLANK 1 1 > * 1=) HfP) *ISONP 

582 

192 

FORMAT* 1X*24(A6) 1 

583 


IPOINT=ISON 

584 


GOTO 19() 

585 

191 

CONTINUF 

586 

C 


587 

C COOK FOR NFXT SUCCESSOR WTTh THE S#vp PPCOFCESSOR 

588 

c 


589 


IRROs I ARRAY ! IPOINT . 3 1 

590 


iFfIRRO ,EO, 01 GOTO 193 

591 


*RRORSNUMRR!lBRO) 

592 


WRITE ! TWT* 192) I I8LANK (11*1=1 *KP) *IBROR 

593 


IP0INT=IRR0 

594 


GOTO 190 

595 

193 

continue 

596 

C 


597 

c nfxt cevec up 

598 

c 


599 


KP=KP-1 

600 


IPOINT=IARRAY«IPOINT*S1 

601 


IF(KP *EO. 0) GOTO 194 UNO NFEP TO GO Fl.lpTHEP 

602 


GO TO 191 

603 

194 

CONTINUE 

604 


RETURN 

605 


subroutine CONVRT(ICOST) 

606 

c 

******************** 

607 

c 


606 

C CONVERT a NUMBER INTO ITS FIEL" EQUIVALENT 

609 

c 


610 

c 

******************** 

611 


JCHAR ! 1 1 = JRL ANK 

612 


JCHAR(2)=JPLANK 

613 


IF (1 COST .EQ. 0) GOTO 916 

614 


ENCODE <19B*JCHAR> ICOST 

615 

198 

FORMAT < 181 

616 

916 

CONTINUE 

617 


RETURN 

618 


SUBROUTINE SUMPRT(NREF*NN> 

r,l 9 

C 

******************** 

620 

C 


621 

r SUM 

UP COSTS AND PRINTS 

62 2 

C 


623 

c 

******************** 

624 


TCOST1=0 

625 


TCOST2=0 

626 


DO 779 K=1*NREF 
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627 


ITC0ST*K.1I=1CSTLN*K»1> 

628 


1TC0ST*K.2)=1CSTLN(K'2) 

629 


DO 7791 KKsl*N4 

630 


lTCOST*K.l)=ITCOSTtK#l>*lCSTHW*K»KK.l) 

631 


ITCOST*K.2)=ITCOST*K.2)+ICSTHW*K»KK.2) 

632 

7791 

CONTINUE 

633 


TCOSTI=TCOST1*ITCOST<K.1» 

634 


TCOST2=TCOST2 + 1 TCOST * K • 8 ) 

635 

779 

CONTINUE 

636 


KC0ST=TC0ST14TC0ST2 

637 

C 


638 

c print out cost 

639 

c 


640 


nturn=nref/io+i 

641 


IREM=M0D*NREF»10> 

642 


IFUREM .eq. o> nturnsnturn-i 

643 


LPAGE=1 

644 


00 919 KW=1*NTURN 

645 


KWL-lO*<KW-ll+t 

646 


KWU~10«KW 

647 


IF(KWU.GT.NREF) KWU2NREF 

646 


IF*NN ,E0. 0) GOTO 079 

649 


IF(LRAGE.NE.I) SOTO 9033 

650 


WRITEUWT.9031) KW 

651 

9031 

FORMAT* *1* .40X. 'REGIONAL STAR NETWORK AMD ITS COSTS-’. IP) 

652 


GOTO 9035 

653 

9033 

CONTINUE 

654 


WRITE! IWT*9034)KW 

655 

9039 

FORMAT*/»40X» 'REGIONAL STAB NETWORK AMP ITS COSTS-’ »TP> 

656 

903S 

CONTINUE 

657 


WRITE ( JWT.9032) (NUMRR * 1 > . I3KWL .KWU) 

658 

903? 

FORMAT < / * IK ♦ 'SYSTEM TFRMN* • . 1 3V » 1 0 < 4X . A4 » t X ) ) 

659 


WRITEUWT.903) 

660 

903 

F0RMAT*/»1X"N0. OF LINES REQ.O 

661 


DO 1903 NJsl *N3 

662 


IF*LINMIX*NJ> .E®. 0) SOTO 1903 

663 


WRITE* IWT.904) LINAME*NJ> , (NLINFS*K.NJ> »K=KWL.KWI)) 

664 

904 

FORMAT «7X . A6.14X* 10 * 18* IX) > 

665 

1903 

continue 

666 


WRITE ( I WT* 9036) * RHOF * N J > . N J=KWL ' K WU) 

667 

9036 

FORMAT*/. IX. . 'LINE UTILIZATION* »11X.10*F«. 3. IV) ) 

666 


WRITE (IWT.906) ( IDST *N> .N=KWL*KWU> 

669 

906 

FORMAT*/. IX* 'DSTNCF FROM R5C • » 1 IX. 10* 18. lx) ) 

670 


GO TO 606 

671 

879 

continue 

672 


IF<LRAGE.NE*1) SOTO 0033 

673 


WRITE (IWT.S031) KW 

674 

803j 

FORMAT* *1«.40X.» FINAL multidrop NETWORK and ITS COSTS-’. IP) 

675 

SOTO 0O3S 

676 

8033 

CONTINUE 

677 


write * i wt. 8034 ) kw 

678 

0034 

FORMAT*/. 40X. 'FINAL MULTIDROP NETWORK AND ITS C0STS-**I2) 

679 

0O3S 

CONTINUE 

660 


WRITE*IWT.803> ’T.JsKWL.KWU) 

661 

003 

F0RMATC/.1X*'SUPNET N0.».16X.in*!8.1X) ) 

682 


DO 1»03 N=KWL.KWU 

683 


ID=NSUR*N) 
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684 

685 
666 

1803 

667 

66A 

1806 

669 

690 

1807 

691 

692 

811 

693 

694 

695 

696 

1806 

697 

696 

8036 

699 

700 

808 

701 

806 

702 

703 

704 

705 

706 

707 
706 

1101 

709 

710 

1102 

711 

712 

1103 

713 

714 

1104 

715 

716 

907 

717 

716 

719 

720 

721 

908 

722 

723 

724 

725 

726 

727 

728 

909 

729 

190p 

730 

731 

910 

732 

733 

734 

735 

736 

737 

738 

739 

740 



MSUBIN)SNUMRR(ID) 

LSUB(N)SI ARRAY! IQr 1)*1 
CONTtNUE 

WRITS ( IWT * 1A06) ( MSUB ( N > * N=KwL # K WU ) 

F0RMAT</»1X**BEGINNNING NO"E* »tlX»10<4X* Aft# IX) > 

WRITE* IWT* 1807) (LSUB(N) *N=KWL»KWU> 

FORMAT OXf* NO* OF TERM»**l?X*lO<IA*!lxn 
WRITE<IWT*011> 

FORMAT «3X*» NO* of LINES* ) 

00 1«08 NJ=i*N3 

1F*LINMIX*NJ).EQ.0> GOTO IflOfl 

WRITE* IWT*904) LINAME*NJ) • CNLINE5*KfNj) *KSKWL*KWU) 
CONTINUE 

WR I TE * T WT * BO 36 > * RHOF < N J > * N J=KWL * KWU > 

F0RMATOX* ‘LINE UTILISATION* ,Ox*10*F8. 3*1x1 > 

WRITE tlWT* BOR) < IOST*N> *N=KWL*WWU) 

FORMAT * 3X * • TOTAL MILAGE * * t?X* 10 * 18* 1X> > 

CONTINUE 

00 I 101 N=KWL*KWU 
ID=N 

if(nn*fo,o) in=NSun*N» 

TRFSUM (N« 1 U ARRAY < 10 * 1 > 

TRFSllM IN. 2 ) sARRAY ( ID * 2> 

TIMOUT(N)=TIMPSP<Tf» 

CONTINUE 

WRITE* IWT* I 102) * TRFSUM (N*1)*NSKWL*WWU» 

F0RMAT*3X* 'TRAFFIC* */*3x** Lt'lE TO ePU*,llX*lO<F0,3,lx> > 
WRITE * I WT* 1103) * TRFSUM *N* 2 >*N=KWL*KWU) 

format * 3x»* cpu to line , *iox*io*fg.3*ix>) 

WRITE«IWT*1104) (TIMOUT(N)*NSKWL*KWU) 

FORMAT *3X**LINE RESPONSE TIME* ,7X. 1 OIFB.S, IX)) 

WRITE *IWT* 907) 

format * 2 1 x * • subtotal * * / » 1 x * * 1 nst . costs * > 

C0ST=JC0STA(1.NREF> 

IF«KW.NE.1> COSTso 
CALL CONVRT(COST) 

WR ITE * I WT ♦ 908 ) « JCHAR <L) *L=1 *2) * ( ICSTLN * NODE • 1 ) * NOOE=KWl t X WU ) 
F0RMAT<SX**LINES , *AX*A6*A2*1X»10(IB*)X1) 

DO 1909 K=1*N4 

COST= JCOS T B ( K . 1 , NREF ) 

IF«KW'.NE.1) COST=0 
CALL CONVRT(COST) 

WRITE *IWT* 909) NAMEHWtK) * * JCHAR(L) »L=1 »2> ♦ * ICSTHW*NOf>r >¥ , J) e 
* NOO£SKWL*KWU> 

F0RMAT<5X*A6*7X* A6*A2* lX*10*I8# IX) ) 

CONTINUE 
WRITE* IWT*910) 

FORMAT* IX* 'ANNUAL RECURR. COST') 

COSTSJCOSTA < 2 * NREF > 

IF (KW«N£«1) C0ST=0 
CALL C0NVRT*C0ST) 

WRITE* I WT* 908) * JCHARtL) *L=1 * ?> * « TCSTlN<NoOF*2) *NO0E=KWL*KWU) 
00 1911 K=1*N4 
COST=JCOSTB * K * 2 * NREF ) 

IFOCW.NEtl) C0ST=0 
CALL CONVRT(COST) 

WRITE* IWT*909) NAMEHW(K) * « JCHAR (L) *L=i *2) , * tCSTHWfN©OF'K*2> * 
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741 


* nooe=kwl»kwu» 

743 

1911 

CONTINUE 

743 


WRlTEtTWT*9l2> 

744 

912 

FORMAT t IX »* TOTAL COST'I 

745 


tFtKW.NE.il TC0ST1=A 

746 


CALL CONVRT t TCOST I I 

747 


WRITE <1WT'913> UCHAR <UU si •2>»*TTCOST«K,l»tWsKWl *KWU> 

748 


tFtKW.NF.il TC05T2=0 

749 


CALL CONVRT (TC0ST2I 

750 


WRITE* !WT»914) t JCHAft tL> #L=1 *?> » < ITCOST»K» 2) #KSKWL*KWU) 

751 

913 

FORMAT 14X#* INST. COST*’4X'A6.A2rlX#10<I4*1Xt> 

752 

914 

FORMAT 1 4X » • RECUR . COST 'f3XfA6«42*lX'J0(IA,lX)> 

753 


lpage=lpagf+i 

754 


lpagesmod t lpage > 2 1 

755 

919 

CONTINUE 

756 


WRITE* 1WT#69S) KCOST 

757 

695 

FORMAT</*2SX.*TOTAL COSTS* #101 

758 


return 

759 


subroutine mutdrp 

760 

C 

****t ******** ******* 

761 

C 


762 

c print out final multidrop network with its cost*; 

763 

c 


764 

c 


765 


00 590 NL=1*N3 

766 


LOUMMYtNDsO 

767 

590 

continue 

768 


IBR0SIARRAYCIRSC*2I I3FIRST SUCCESSOR 

769 


Kl=l 

770 

699 

continue 

771 


iFtIBRO .EO. 0) GOTO 696 

772 


NK 2=NUMR ( I BRO 1 

773 


NKlSNNl 

774 


NSUBtKUslPRo 

775 


LlHEsCOSTEWtlRRO*?) 

776 


LDUMMY I LINE ) sCOSTFW ( I«RO> 3 ) 

777 


JSONs I ARRAY t IPRO * 2 ) 

778 


IFtJSON.EQ.OI GOTO 694 

779 


00 592 NM=1*2 

780 


ICSTLN(K1*NM)S0 

781 


00 592 NK-1 »N4 

782 


ICSTHW *K1 »NK »NMI so 

783 

592 

CONTINUE 

784 


DO 596 NLS1»N3 

785 


NL I NES t K 1 * ML I sLHl IMM Y t NL I 

786 

596 

continue 

787 


KCHG=2 

788 

312 

continue 

789 


CALL IC0STJtLnUMMY.NKl*NK2*LNKCMW*l NKCLNl 

790 


DO 595 NLsl f N3 

791 


DO 599 NM=1»2 

792 


I CSTLN t K 1 * NM I s I CSTLN t K 1 » NM I ♦LNKCLN t NL » NM » 

793 


DO 595 NKS1.N4 

794 


I CSTHW t K 1 * NK » NM ) s I CSTHW t K I » NK » NM ► *LNK HwtNL»NK»NMl 

795 

595 

continue 

796 


IFtJSON.EO.O) GOTO 311 

797 


NK?sNUMRt JSONl QGLOBAL INDEX FOR N r XT NOOP 
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798 


NKlsiARRAY<J5flN'S) OPREDECFSSOP 

799 


NKlSNUMR(NKl) QGLOBAL INDEX FOR PRFDECFSSoR 

800 


JSONsNXTNOD < IBRO » JSON) 

dot 


GOTO M2 

602 

311 

CONTINUE 

603 


LDUMMV<LINE)sO 

ecu 


GOTO 5B» 

60S 

694 

continue 

606 

C 


607 

C USE 

PREVIOUS DATA 

606 

C 


609 


DO 597 NL=1*N3 

610 


nlines«ki*nl>=nlines<ibro»nh 

an 

597 

continue 

612 


DO 596 NMSJ tS 

813 


ICSTLn ( K 1 1 NM ) SICSTLW < IBRO . NM) 

814 


DO 598 NK=1»N4 

815 


ICSTHW<Kl»Nt<*NM)=ICSTHWClHRO,riK.NM) 

6i6 

598 

CONTINUE 

817 


LOUMMY <linf > sO 

die 

591 

CONTINUE 

819 


IDST (Kl > sCOSTEW { IBRO 1 4 > 

820 


RHOF (KM sRHOF ( IBRO ) (JSHUFFLING RHO*S DlJF TO Rr-INOEXTMG 

821 


IRR0=I ARRAY ( IBRO* M 

822 


Kl=Kl+l 

623 


GOTO 699 

824 

698 

CONTINl >E 

625 


nosub=ki-i 

626 


call SUMPRT < nosub *0) 

627 


return 

828 


Subroutine calplt 

629 

C 


630 

C 


631 

c plot a multidrop netwoek 

832 

c 


833 

c 

******,*«•***«***••• 

834 


KP=1 

635 


IPOINT^IRSC 

636 


CALL TRSFRM(g) 

837 


I SONsI ARRAY < IRSC* 2 > OFIRST SUCCESSOR 

838 


IpOINT=ISON 

839 


call trsfrmih 

640 

c 


641 

c look for its fipst successor 

642 

c 


843 

190 

CONTINUE 

844 


ISONsIARRAY(lPOINT#g) OFIRST SUCCESSOR 

845 


IF ( ISON '.EQ, 0) GOTO 191 

846 


KpSKP+l 

847 


W>0INT=IS0N 

848 


CALL TRSFRM(l) 

049 


GOTO 190 

650 

191 

continue 

851 

C 


852 

c look 

FOR ITS NEXT SUCCESSOR 

653 

c 


054 


IRRO=TARRAY<IPOINT#3> 
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055 


IPOINT=IARRAYUPOTMT*5> ONOW TTS PREDECESSOR 

856 


CALL TPSFPM(p) 

857 


IFUBRO .FQ.O) GOTO 193 

056 


1P01NT=1BR0 

059 


CALL TKSFRMC 1 ) 

000 


GOTO 190 

861 

193 

CONTINUE 

860 

C 


663 

C 60 

BACK TO ITS PREDECESSOR 

864 

c 


665 


KP=KP-1 

666 


IF«KP .EG; 0) GOTO 194 

867 


GOTO 191 

066 

194 

CONTINUE 

869 


CALL TRSFRM<3> 

870 


RETURN 

871 


subroutine TRSFRM(LK) 

870 

C 


673 

C 


874 

c FIND GLOBAL MADADR INDEX FOR V-H COORDINATES AND PTD NO' 

675 

c 


676 

c 


077 


data ip/o/ 

076 


IF ilk .EG. 3) GOTO 666 

079 


LKl=NUMRCIPOINT) oglobal index 

880 


idd=mapadr<lkd gmapaor index for LKt 

081 


IF lion .EG. IP) RFTURN 

882 


Ip-IDD 

683 

666 

CONTINUE 

684 


CALL PLOTPTCIDD.LK) 

885 


return 

686 


SUBROUTINE LNKOFF(MP) 

887 

C 


888 

C 


889 

C DELETE MP as a SUCCESSOR OF NODE PA 

090 

c 


891 

c 

************** ****** 

892 


I FRONTS IARRAY(MP»4> (JTHE SUCCESSOR BEFORE MP 

893 


IRACK =IARPAY(MP#3> ijthe successop aftfr MP 

894 


IF 1 IFRONT .NE* 0) GOTO 92 

895 


MPA=IARRATIMP.5) 

896 


IARRAYIMPA»2)= IBACK 01ST SUCCESSOR UNDER NEW MPA 

697 


GOTO 99 

690 

92 

CONTINUE 

899 


IARRAYIIFR0NT.3)=IRACK 

900 

99 

CONTINUE 

901 


IF 1 IBACK .EO. 0) RETURN 

900 


I ARRAY I IBACK .4 ) sIFRONT 

903 


RETURN 

904 


subroutine rsptst ( K KK f LLL . L I NM A X . I OK ) 

905 

C 


906 

C 


907 

c test rsponse time* s/.tisfieo when tok=i 

908 

c 


909 

c 

******************** 

910 


MDROPsI ARRAY (LLL*1)+I ARRAY ( KKK , l) +2 

911 


TrFIN= ARRAY (LLL » 1 > ♦ ARRAY (KKK 1 1 ) 

912 


T RFOUTS ARRAY ( LLL * 2 ) + ARR A Y I K K K . 2 ) 

913 


C ALL RSPNSE 1 TRFIN t TRFOUT t LTNMAX * MdPOP . I OK > 

914 


RETURN 

915 


END 


QPRT STACOM.IRNOP/0777 
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S192B*STAC0M(l > . IRN0P/0T77 


1 

2 

C 


subroutine irnopcnr»limit»trm> 

3 

4 

c 

c 


SUBPROGRAM for THE INTER-RE6I0N NETWORK OPTIMIZATION 

5 

c 


LIMIT=MINIMAL NUMBER of paths needfd Pfb regional 

6 

7 

c 

r 


switching center 

6 

C 


**«♦*•**+**++***♦**+* 

9 



PARAMETER NP 1 S 1 3 0 » NP2= 1#NP3=4* NP4=3 

10 



PARAMETER NPC-360* NP6=<NPONPr/2-NPC-M >/4+l 

U 



PARAMETER MP7=4» IWT=lOO» M W s4 

12 



COMMON/CONST/Nl ♦N2»N3*N4*M7»NCtTY 

13 



C0MM0N/|.INCHR/LINMIXfNP3t »LINCftP(NP3) » UTlLIZ<NP3) 

14 



* /8C0SV/AlNSTC<NP2,NP3tNP4#3»P»2) >RFCRC I NP? pNP3*MP4 »!#?»?) 

15 



* AnSTLNCNP2*NP3»3,2»2>»RECRLN<NPF»NP3»S,2»16)»IPIIPLV(np^1 

16 



♦ /NAME/INDXPTlNPl) » NAME*T(NPl 1 #LINA»*E(NP3» ,NAMEMW«N»4) 

17 



♦ /EIN/SVR(NPI) >NRSC(MW)»NUMPR(MW) ►TRAFDN(MPI) »TRAFfT(Nr»l l 

16 



* /RFF/IREF C NPC I • TPAFO <NPt * 2 » Np7 ) # DGTNCE ( nP6 ) *MAPADR * NPl > 

19 



DIMENSION NETSUMCNP3»2*»0RINET(Mw,MW»MP3> 

20 



dimension NLINKINP3) .LNKCHWINP3*NP4»?) .LNkCLN<NP3»2> 

21 



integer SUMCST 

22 



integer orinet 

23 



DIMENSION TRRM(MWfMW) »TR(MW*MW) 

24 



integer oricst»oricsi*orics2 

25 



integer OIVTRUMW) »OIVTRJCmw) 

26 



DIMENSION TRR<MW»MW) *NETCNFIMW»MW»HP3> >LIME0U(NP3) » 

27 



* LINADI CNP3) »LINADJ<NP3) »ILINAD(NP3) , JLTN40<NP3) * 

26 



* LINEOINP3I »LINEQACNP3)*LINE0fMNPS) 

29 



DIMENSION RH0F2(MW*MW) 

30 



DIMENSION TRM(MW'MW) 

31 



EQUIVALENCE (LINED* LINEQA) • (LTnEOII'LTNFOB) 

32 

c 



33 

c 

rfset utilization FACTOR TO ,5 

34 

c 



35 



DO 70 NNl=lfN3 

36 



UTILIZ‘NNns.5 

37 

70 

CONTINUE 

36 

C 



39 

C 

COMPUTE ORlNET(MW#MW*N3) FOR INITIAL TOPOLOGY WHERP NS IS 

40 

C 

the 

• number of chargeable items 

41 

C 



42 



ORICSTSO 

43 



0RICS1-0 

44 



0RICS2=0 

45 



NRlSNR-t 

46 



00 203 NNlsl,N3 

47 



DO 2C3 NN2=1#2 

46 



NETSUM<NN1»NN2>=0 ocost SUM 

49 

203 

CONTINUE 

50 

C 



51 

C 

MODIFY DUPLEXING MODE FROM HALF TO FULL OUP1.FX 

52 

C 



53 



DO 667 K1=1#N» 

54 



IDUPLXCK1)=2 

55 

667 

CONTINUE 

56 



DO 101 I=1»NR1 
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57 


NLINKIIISNRI ONR1 LINKS AT THF BEGINNING 


56 


11=1+1 


59 


00 102 J=I1»NR 


60 


IISNRSC(l) 


61 


JJ=NRSC(J) 


62 


ATRMAX=AMAX1 (TR( 1 . J) » TRCJ.il) QASSl IMMING FULL DUPLE* 


63 


CALL LINNUM <ATRMAX.O.*LINFG»LINUP»0»RHO) 


64 


RHOF2(I»J)=RHO 


65 


RHOFS(i»I)=RHO 


66 


CALL ICOSTJfLtNEQ'lI'JJ* LNKCHw.LN CLN) 


67 


DO 104 NN=1»N3 


66 


ORINETU.J.NNIs LINEQ(NN) 


69 


ORlNCT«J*I*NN)= LTNEQ(NN) 


70 


DO 105 NV=1.2 e LINE COST 


71 


NETSUM(NN»NM)S NETSUM (NN.NM) + LNKCI N(NN.NM) 


72 


DO 106 NK=1.N4 0 HARDWARE COSTS 


73 


NETSUM lNN»NM|5£ NETSUM CNN»NK>+ LNKCNM ( HN # Ny. * MM ) 


74 

106 

continue 


75 

105 

continue 


76 

104 

CONTINUE 


77 

102 

CONTINUE 


76 

101 

CONTINUE 


79 


DO 107 K1=1.NR 


60 


DO 107 NN=1»N3 


61 


orinet(ki»ki.nni=o 


62 

107 

CONTINUE 


63 


CALL OUTPRTCl) 


64 


itally=o 


65 

999 

CONTINUE 


66 


MA*SAV=0 


67 


DO 777 1=1. NR1 


66 


IF (NLlNK(t) .LE« LIMIT) GO TO 777 


69 


11=1+1 


90 


DO 708 J=I1.NR 


*1 


IF (NltNKCj) .LE. LIMIT) GO TO 7gR 


;2 


IN=NTEST(ORInFT»I.J) 


93 


IF <IN .EG. 0) GO TO 788 0NO LINK TO OF OELETFD 


94 

C 


95 

c dfterminf whether there is a link connfctfo by at most omf 

INOIRFCT 

96 

C ROUTE BETWFEN ANY TWO REGIONS IN THE NFTWORK MHEN THE OlPFCt t INK 

97 

C BETWEEN l AND J IS ELIMINATED. THE INDIRECT LINK ONLY G0F9 

THROUGH 

98 

c one 

intermediate rsc. 


99 

c 



100 


00 139 L=1»NR1 


101 


L1=L+1 


102 


DO 138 MSL1.NR 


103 


IT=ITESTC1 . J.L.M) 


104 


IF (IT .EO. D GO TO Bit) ONFXT STEP NOT TO RE TFSTEO 


105 


IN=NTEST(0R1NET.L.M) 


106 


IF (IN .EQ. D GO TO 130 


107 

Rio 

continue 


106 


DO 137 N=1»NR 


109 


IF (L .EG. N) GO TO 137 


110 


1 Y=ITEST t I » J.L.N) 


111 


IF( IT .EG’. 1) GOTO 137 


112 


IM=NTFST(0R1NFT»L.N) 


113 


IF (IN .CO. 0> GO TO 137 
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114 


IV=ITEST<I»J*N»M) 

115 


IF<1Y >CQ« 1) GOTO 137 

116 


in=ntest(orinft*m*n> 

117 


IF <IN .EG. 1) GO TO 138 

116 

137 

CONTINUE 

119 


GO TO 786 

120 

138 

CONTINUE 

121 

139 

continue 

122 


smvti=o 

123 


SOIVTJ=0 

124 


CALL TRFOIV(IFLOP» 

125 


IF (IFLOP .EG. 1) 60 TO 201 

126 


CALL MINAD(IIA0*MINCST) 

127 


GO TO 302 

126 

201 

continue 

129 


call NETWKC(MINCST) 

130 

202 

continue 

131 


isav=oricst-mincst 

132 


IF (MAXSAV .GE. ISAV) GO TO 788 

133 


maxsav=isav 

134 


IFLIPSIFLOP GIFLTPzGLOBAL INDICATOR 

135 


IF (IFLOP .EG. 11 GO TO 204 

136 


I!MAX=IIAD 

137 


IMAX=I 

136 


UM*X=J 

139 


00 666 NN-1 *N3 

140 


ILINAQ(NN1= LTNAOI(NN) flCHANGc OF LINE RrG* 

141 


JLINA0(NN)= LINAOJ(NN) 

142 

666 

continue 

143 

204 

continue 

144 


DO 331 Kl=t,NR 

145 


DO 331 K2 = l ,NR 

146 


TRRM(Kl.K2>=TRR(Kl.K2) 

147 

331 

CONTINUE 

148 

788 

CONTINUE 

149 

777 

continue 

150 


IF (MAXSAV .LE. 0) GO TO 9<»99 

151 


CALL NETUP( IFLIP* I IMAX • IMAX . JMAX ) 

152 


italltsitally+i 

153 


GO TO 999 

154 

9999 

continue 

155 

109 

F0RMAT(1X»* THIS NETWORK HAS RFFN 1 iPOAT r O FOR »»!«,♦ TIWFS*»//> 

156 


WRITE(6,109) ITALLY 

157 


00 81 I=1«N3 

158 


00 81 Jslt2 

159 


NETSUMd, J)SO 

160 

81 

continue 

161 


DO 91 I=1»NR1 

162 


Ksl + l 

163 


00 92 J=K»NR 

164 


DO 93 K1=1,N3 

165 


LINEg(K11=0RINET<I»J*K1> 

166 

93 

continue 

167 


II=NRSC(I) 

168 


JJ=MRSC(J> 

169 


CALL IC0STJ(LINE0d I # JJ»LNKCHW,LNKCLN) 

170 


DO 94 KK=1.N3 
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171 


NETSUM < KK * 1 > sNETSUM ( KK * 1 > +LNKCLN * KK » 1 > 

172 


NF. TSUM « KK * 2 > sNETSUM * KK * 2 > *L NK CLN * KK * 2 > 

173 


00 95 KL=1*N4 

174 


NETSUMlKK*l)=NETSUM(KK*l> ♦ LNKCHW'KK#KL't> 

175 


NFTSUM(KK*2)=NETSUM(KK*2) ♦ LNKCHW<KK*KL*2> 

176 

95 

CONTINUE 

177 

94 

CONTINUE 

176 

92 

CONTINUE 

179 

91 

CONTINUE 

180 


0RICS1 = 0 

161 


0RICS2=0 

162 


CALL 0UTPRT12) 

163 


return 

164 


SUBROUTINE OUTPRTIN) 

185 

C 

*♦*#*****♦•♦*♦**♦*** 

166 

C 


187 

C PpinT out INTERREGIONAL NFTWORK CONFIGURATION and its costs 

186 

c 


189 

c 

♦+******+******+**** 

190 


DO 110 I=lf N3 

191 


0RICS1=0RICSI +NETSUM (1*1) 

192 


0nlCS2-0RICS2 + NETSUM( I *2) 

193 

no 

continue 

194 


NTURN“NR/10+1 

195 


DO 2001 L“1*NTURN 

196 


LL=(NTURN-11*10 ♦ 1 

197 


LU=NTURN*10 

198 


IF*LU *GT. NR) LU=MR 

199 


IP<N .t'G. 2) GOTO 2100 

200 


WRITE* iWT *2002) *J*J=LULU) 

201 

2002 

FORMAT* *1**//*10X»*INTTIAL INTERREGIONAL network CONFTUpATION** 

202 


* ///.20X* 10<5X*I3*2X) ) 

203 


GOTO 2101 

204 

2100 

CONTINUE 

205 


WRITE *IWT *2102) (J.J=LL*LU) 

206 

210J 

FORMAT* »1»*10X* ’FINAL OPTICAL INTERREGIONAL NETWORK CONfji (BRATTON* 

207 


* ///*20X*10<SX*I3*2X>) 

208 

2101 

CONTINUE 

209 


00 2003 1=1 *NR 

210 


WRITE * I WT* 2004) I 

211 

2004 

FORMAT* • REGION**/* 14) 

212 


DO 210B M=1*N3 

213 


WRITE* I WT* 2008) LINAME*M) * *ORINFT*I *K »w> *K=LL*LU) 

214 

210fi 

CONTINUE 

215 

200B 

FORMAT* (4X*A6*10X*10<'5X*I3*?X))) 

216 


WRITE*IWT*2201) <RM0F2< I* J) *d=LL*LU) 

217 

2201 

FORMAT «4X**LINE UTILIZATION* * 10<4X»F4.3»2V> ) 

218 

2003 

continue 

219 

2001 

continue 

220 


WPITE*IWT*2006) 

221 

2006 

F0RMAT<//*17X**IN5T. COST* *7X* *RECUP. COST* *9X* * SUBTOTAL * ) 

222 


DO 2005 K=1*n3 

223 


ISUMSNFTSUM t K * l ) +NFTSU** t K * 2 ) 

.. *4 


WRITE* I WT *2007) K*LINAME (K) * (MFTSU m *K *T)*I=1»?)* ISU« 

225 

2007 

FORMAT(//*I5*3X.A6*5X*I6*1!X*I6*10X*I») 

226 

200S 

CONTINUE 

227 


0PICST=0RICS1+0RICS2 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 
23B 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 


WRITFUWTp 200^J 0RICS1*0RICS?*0 l5 TC r >T 
2000 FORMAT <//p9Xi ♦TOTAL • r4X»l7»| OX, 17, tOX*T«) 

RETURN 

FUNCTION ITESTUf J»K*L> 

C ******************** 

C 

c test equivalence hetwfen subset* i»j> and suo^ft<k#l> 
c 

c ******************** 

ITEST=n 

IF U *£0. K ♦AND* J *EQ* U ITFST^J 
IF *X -eQ# L *AND. J *£Q* K) ITFST=1 
return 

FUNCTION NTEST<N£T,X,J> 

C ******************** 

C 

C TFST DIRECT LINE CONNfCTIVlTY "ETWFFN T fit'* J* 

C 

C ******************** 

0! ME NS ION NET<MWtM WfN n3) 

00 103 JI=1. N3 

IF CNETtl.J.m .GT. 0 ) GO TO 108 
103 CONTINUE 

NTEST=0 IS NO CONmECTIOI 

RETURN 
108 NTEST=1 

RETURN Q YES# THERE IS A CONNECTION 

Subroutine trfoivciflop) 

c ******************** 

c 

C ntVERT TRAFFIC BE t WEEN I ANO J THROUGH OTHER RSCS, 

C 

C ******************** 

c 

C IT RETURNS WITH IFL0P=1 WHEN SUCCESSEUI » OTHERWISE IFLOP=0. 
C IT ALSO CREATES TEMPORARY MATRICES TRP AMO NFTCNF, 

C 

SDIVTI=0. OTOYAL TRAFFIC OIVERTFD <1 To J) 

SMVTJ=0. fJTOTAL TRAFFIC DTVEPTFD (J TO I) 

DO 20*1 «=1.NP 

DlVTRl ( K ) ”0 • 0 TRAFFIC DIMERTFn THRU RFGTON K (I TO J> 
0TVTRJtK)=0. 0 TRAFFIC DIVFRTFO jHRU RFGTON K tj TO T> 
EOS CONTINUF 

DO 220 11=1 .NR 

IF <II.EQ'I.OR.n»EQ.J> GO TO 2?0 
IC1=NTEST< ORINET* 1 . 1 1) 

IC2=NTEST tORINF.T. II . J) 

IF I ICl *FG. 0 .OR. IC2.FQ.n> GOTO 2?0 
C 

C DIVERT I TO J TRAFFIC THRU II 
C 

DIVTRI I II )=0. 

DIVTRJ 1 1 1 > =0. 

CALL L INTRF ( I • II . A) 

OFLTP= A-TP(I.II) 

IF (DELTR.l E.0.0) GO TO 160 
C 
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265 


DIVTR=DELTR 

266 


CALL LtNTRF ( II ► J*R) 

26? 


deltr= B-TR(II»J» 

268 


IF (OELTR.LE.O.O) GO TO 160 

289 


DIVTRI lll)s AMlNllnELTR*OIVTR) 

290 


IF ( (Dl VTRI < 1 1 ) ♦ SDIVTI) .GT.TR(I»jn<?0 TO i**o 

291 


SDIVTI- SOIVTI+ OlVTRTtlD 

292 


CO TO 160 

293 

C 


294 

140 

DIVTRUlps TPU'J)- SDIVTT 

295 


SDIVTI- TR(I#J> 

296 

C 


29? 

C 

divert J TO I traffic thru II 

298 

C 


299 

160 

CONTINUE 

300 


CALL LlNTRF(J»II»A) 

301 


DELTP= A-TR(Jrll) 

302 


IF (DFLTR.LE.O.O) GO TO 2?0 

303 

C 


304 


divtrsdeltr 

305 


CALL LlNTRFt II . I *B) 

306 


DELTR- B-TRtn*I> 

307 


IF (OELTR.LE.O.O) GO TO PRO 

308 


DIVTRJ«II)= AMINl( DELTR «DIVTP» 

309 


IF ( (DlVTRJdlK SOIVTJ) .GT. TR(J*T)> GO TO IPO 

310 


SDIVTJS SOIVTJ+ DTVTRJ(II) 

311 


GO TO ?00 

312 

C 


313 

160 

DIVTRJ(II)s TR<J*I)- SDIVTJ 

314 


SDIVTJ= TR ( Jt I ) 

315 

C 


316 

200 

CONTINUE 

317 


IF ((SDIVTI ,FQ. TRi f»J)).AND. (SDTVTJ .FO.TR ( J* I ) ) > GO TO 390 

316 

220 

CONTINUE 

319 


I FLOP- 0 

320 


60 TO 360 

321 

340 

IFLOP=l 

322 

360 

CONTINUE 

323 

C 


324 

C CpfATE A NEW TRAFFIC MATRTX which fUMTNATFS tH* TRAFFIC BETWEEN 

325 

C NODES I AND J and a TFMPOPARY NFTWORK WFTCNF for the PIIRPOSF 

326 

c or 

COST evaluation 

327 

c 

* 

328 


DO 191 K1=1.NR 

329 


DO 191 K2=l»NR 

330 


TRR(K 1 »K2)-TR(K1»K2) 

331 


DO 101 K3=1*N3 

332 


NETCNF (K1 *K2 »K3) FORINFT (K1*KR*K3) 

333 

191 

CONTINUE 

334 


DO 190 KI=ltN3 

335 


NETCNF (I#J*KT>sO 

336 


NETCNF ( J* I *Kt )-0 

337 


NETCNF ( I * I *KI ) -0 

336 


NETCNF < J. J>KI )=0 

339 

190 

CONTINUE 

340 


TRR(I*J)=0 

341 


TRR(J* t ) s0 
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DO 380 IK=1»NR 

IF 1 1 .EG*. IK .OR. J .EG. tK> 80 T« 380 
TRR(I.IK)= TR ( I . ItO ♦ nlVTRT(lK) 

TRR(IK#J»s TRdK.Jl* nlVTRT(lK) 

TRRCJ»IK>F TRIJ.IKJ+ OlVTPJClK) 

TRR«IK*I)= TR<IK*I)+ OlVTRJtlKJ 
ATRMAX=AMAX1 < TRR ( I » IK ) *TRP f IK» T >) 
BTRMAy=AMAXl(TRR(J.IK)*TRRfIK»J)> 

I0RISNRSC(I> 

IPR2=NRSC»IK) 

CALL LINNUM<ATRMAX»0. .LINFOrLtMMP*O.RMO> 

RH0F2 ( I » IK I SRHO 
RH0F2<IK»I)sRH0 
inRl=N p SC(J> 

CALL LtNNUM(8tRMAX.0..LINFOU.LlHUP*O*PM0) 

RH0F2(J.IKJ=RH0 
RH0F2(IK.J)SRH0 
DO 430 NN-1 «N3 
NFTCNF<I»IK.NN>=LINEG(NN> 

NETCNF t IK* T.NN)sLTNEG(NN) 

NETCNF ( IK * J.NN) =L INE0U<NN> 

NETCNF(J.IK»NM>=LINEGU<NN> 

430 CONTINUE 
380 CONTINUE 
return 

subroutine lintrfii.j.a) 

c ******************** 

c 

c convert lines into traffic capacities pftwefn nodes i a«o j. 
c 

c ******************** 

A=0 

DO 100 IR=1.N3 

A=A* 0RINFT<I.J.IR)*LTNCAP<IR>*UTTLI7«TP> 

100 CONTINUE 
RETURN 

SUBROUTINE NETWKC(SUMCST) 

C ******************** 

C FINO TOTAL INTERREGIONAL NETWORK CoST.SUMCST.qASEO ON SPECIFIC 
C CONFIGURATION NETCNF 
c ******************** 

INTEGER SUMCST 
SUMCST-O 
DO 420 IRSI.NR1 
lRlsiR+1 

DO 400 IKSIR1.NR 
IC a NTEST I NETCNF . IR ♦ IK > 

IF (IC.EQ.O) GO TO 400 
, IT=NRSC(IR) 

JJ=NPSC(IK> 

DO ISO IIT=1*N3 
LlNE0U<III»s NETCNF<IR»IK*III> 

150 CONTINUE 

CALL TCOST J < LINEQU .II. J J . LNKCHW » LN* CLN) 

00 501 Jl-l »N3 
DO 510 J2=l>2 
DO 520 J3=1»N4 
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399 

400 

401 

402 

403 

404 

405 

406 

407 
406 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 


SI1MCST:SUMCST*LNKCHM ( Jl »J3'J2> 

520 CONTINUE 

SllMCST=SUMCST*LNKCl Nt.ll*J2) 

510 CONTIHUF 
501 CONTINUE 
400 CONTINUE 
420 CONTINUE 
RETURN 

SUBROUTINE MiNAD< ITAP* m IUC5T) 

C ******************** 

C 

c capacity increase is required *hf.n tfiop=p, add the capacity at 
c naximiim cost savings* 
c 

c ******************** 

OIMENSION LINDT <NP3)*I.INDJ(NP3) 

MINCST=0 

RTRFI=TR(I*JJ-SDIVTI QRFMATNINO TRAFFIC FPOM t to j 
RTRFJSTR tJ, D-SDIVTJ QREMATNINR TRAFFIC FRO** J TO I 
DO 500 11=1 *nR 

IFCII.EO.I.Or.II.FO.J) GO TO 500 

IF(TRR< I * IT ) .EQ*0. .OR, TRplIT.JJ .FO.O.l GO TO 500 
C 

C DETERMINE DELTA COST FOR INCRFASFn CAPACITY IN ALTEPNaTf ROUTfS 
C LINK (Ifll) 

C 

ATlIsTRRUtlT) ♦ PTRFT 
AJII= TRR ( IT * I > +RTRFJ 
AM= AMAXKAIII'AJTI) 

IORlsNRSCdl 

IOR2=MRSC(II) 

CALL LINNUMUM'O.'LINEQA'LTNUPtP'RHO) 

DO 151 NN=t»N3 

LINOI UJNI- LlNEQAtfJN)- NETCnF C T » I J * NM ) 

NETCNF *I*II*NN)= LINEOAtNNl 
NETCNFdl*! * nn)s lineoacnui 
151 CONTINUE 
C 

C LINK ( I It J) 

C 

BIII=TRRtII*J)+RTPPl 
B JI I=TRR ( J * 1 1 ) +RTRF J 
BM= AMAXIIBIII * BUI I > 

IORl=NRSCCJ) 

CALL LlNNUM(BMf0.»LIMF0B.LlNUP#0»«»H0) 

DO 111 MN=t*N3 

LIMDJ(NN>= LINEOBtNN)- NETCNFlj»IT*NN) 

NETCNE<J«IT*NM>= LTNEOD(NM) 

NrTCNF<II,JiNNl= LINEOB(NN) 

111 CONTINUE 

CALL NFTWKC(SUMCST) 

IF iSUMCST.GT.MINCST) GO TO 120 
DO 207 NN=1 »n 3 
LINApI (NN)= LINOI(NN) 

LINAPJ(NM)= lindu(mn) 

207 CONTINUE 

had =TI 
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456 

457 
45© 

459 

460 

461 

462 

463 

464 

465 

466 

467 
466 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 
460 

481 

482 
463 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 
496 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

npRT STACCW 


MINCST =SUMC5T 
120 CONTINUE 
C 

C RESET TO INITIAL NETWORK rONFlGRUATION FOR NEXT TRY 
C 

DO 250 NNS 1*N3 

NETCNFII*IT#NN>= NFTCNF < 1 # Tf »NN>- LJNDT(NM) 
netcnf<ii*i*nn)= NETCNFIIT* X«NM)- itnpmnn) 
NETCNF(JpII*NN>5 NFTCMF<J*T|pNn>- LIWOJCnm) 
NETCNF<II*J*NN>s NFTCNF(|IpJ*NN>- lindjinm) 

250 CONTINUE 
500 CONTINUE 

TRR ( 1 1 1 1 AD) =TRft (1*1 1 AP> +RTPFI 
TRR ( 1 1 AD tJ) -TRR ( 1 1 AD * J * ♦PTRFI 
TRR < J r 1 1 AD ) =TRR ( J f 1 1 AO ) +RTPF J 
TRR ( 1 1 AD # I) = TRR < 1 1 AD * I > ♦RTPR J 
RETURN 

SUPROUT INE NFTUP( TFLTP* HAD* I * J) 

C *+**»**********+***♦ 

C 

C UPDATE THE INTERREGIONAL NETWORK WHEN THF»F IS SOMF SAVINGS 
C 

C +**+**************** 

IF (IFI-IP.FQ.I ) 60 TO 700 
C 

C UPOATF THE NETWORK TRAFFIC MATRIX AND 

C UPDATE THE OPTIMAL INTERREGIONAL NETWORK 

C 

DO 99 NN=! -N3 

ORTNET H»IIAD*NN)sORTNET(T»HAni>Nl , )+ TI.TnADINM) 

ORINET < I! AD» I *NN)sORTNET( HAD* I»MN)+ TLTnAO(WN) 

ORINET tUHlADiNN)=ORINET(J»IlAn»NH»* JLlNAD(NM) 

OPINFT (IlAD*J»NN)rORINET(TIAO»J»NNH JLTNAn(NN) 

99 CONTINUr 

700 CONTINUE 

DO 701 NN2I»NS 
0RINFT(I»J#NN>S0 

orinet<j»i»nn)=o 

701 CONTINUE 
C 

C RFSET TRAFFIC MATRIX TR(NR*NR> 

C 

DO 900 IR= 1»NR 
00 910 IK= 1 »NR 
TR ( IR » IK I - TRRM(lRrlK) 

910 continue 
900 continue 
c 

C update total cost for overall network 
c 

OP!CST=ORlCST-MAXSAV 

c 

C UPOATF NLINK MATRIX 

c 

NlINKII)=NLINK<I>-1 
NLlNK < U)-NLINK (U) -1 
RETURN 

emo 

IC0 r >TJ/0777 
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5192 B*STM 0 M<n.IC 05 Td /0777 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


SUBROUT 1 Nt I COST J ( L I NFOU* 1 * d 9 LMKCH* • LNKCLM > 

C ******************** 

c 

C CALCULATE INSTALLATION ANNUAL RECURRING COSTS NFFDFO TOR 
C COMMUNICATION link BETWEEN N0n r S T ANH J. L NKCHW= OTHERS 
C LNKCLN= lines; I AND J AR* GLOBAL tNOT*T for system tfr m t NAT IONS 
C UNDER CONSIDERATION* LINEOUr LTNE CONFIGURATION PFTWFFN T ANn J 
C 

c ******************** 

P ARAMFTFR NP1-130 1 MP2=1 *NP3=4 * MP4s3» NPC=360 
PARAMETER MPAS (NPC*NPr /2-NPC+l ) /4+1 
PARAMETER NP7*4 

DIMENSION LINFQUIMP3)# LN*CHW <NP3* MP4* 2) * LNKCLN(MP3» 2) 
C0MM0N/LIMCHR/LINMIX(NP3)*1 INCAP(NP3)fHTH TZUlP3> 

/CONST /N 1 # N2 • N3 # N4 1 N7 f NC I T Y 

/DCnST/AlNSTC(NP2#NP3rNP4#3,2r2) fRFCPC{NP2#NP3»NP4#3,2t?I t 
AN5TLN(NP?*NP3*3*2*2)* RECRLN <NP 2 »NP* » 16) * I0UPLX(NP3) 
/INF/IRATEU<NP2fNP2>»IRAND<NPC»?>*IFLAG<NP2#NP3> 

/Ann/ I AOD*NPl ) fRCHG# KAOD ^TERMINALS WTTH SAME V-M 
/RFF/IREF INPC I * TRAFD <NP1 *2f w p 7) * DSTNCE t NP6) *MAP>AOR (Nr»U 


100 


initialization 


ii=mapadr(i) 

oj=mapadr(j) 

IAODTN=IAnntJ) 

00 100 NL-l *N3 
DO 100 NM=1#2 
LNKCLNfNL>MM)=0 
DO 100 NK=ltN4 
LNKCHWlNL^NKfNMlsO 
CONTINUE 

KRATEl- IRAND<II»1) 
KRATFJ= IRANn(JJO) 
KOENSI= IPANDUIt2) 
KOENSJ= IPANOfJJr?) 


0 rate structurf TYPF FOP NODF T 
» rate stpuctupf type fop nadf j 
Q TRAFFIC DENSITY TYPF FOR NODF I 
O TRAFFIC OFNSTTY TYPE FOR NOPE J 

ACTUAL DENSITY (2=m-H* I =H- l AMP 0=1 -L) 


kdnsty- kofnsi+kdensj 0 

KK=KDNSTY+1 Q3=H-h* ?=H-L ANH 1=L-L 

DST = D1ST«I*J> 0 DTSTANCF RFTWE r N NODES I AND J 

inSTrDST 

ITIP=1 fSPRIMF COST FOR H/W UNIT 

1F<DST .LF« 0*5) !TIP=2 GniSCOUMT COST FOP ADPlTtONAL UNIT 
KP = IRATEJ«KPATEI»KRATEJ) Q ACTUAi PATE STPUCTUPF To RE USFO 
DO 1 IL= 1»N3 

|nPX= IOUPLXUL) B DUPLEXING w OpF !=H AND 2=F 


NOV = LINEOUUL) Q 
NDVUNnV* I ADDTN*K add 


NUMBER of LINES PFOUIftFO 


c calculate COSTS FOR NON-LINE type CHARGFS 
c 


51 IF <NDV.EG,0> GO TO 1 0 NO linfs a p e rfoutred 

52 DO 2 TV=lrN4 ©HIGH DENSITY PATF 

53 C 

54 C INSTALLATION COSTS FOR NON-LINE TYPF CHARGES 

55 C 

56 LNKCMW <IL*IV'1>= AINSTCCKR, iL»IViKK*lnPX#ITlP)*KfHG*NDV 
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#■ 

f 


i 



67 


1 ♦ A!NSTC<KR»IL*TV»KK»IDPX*2)*NPV1 


50 

C 



59 

c 

annual recurring costs fop non-line typf charges 

1 

60 

c 


! 

61 


LNKCHW <IL»IV*21=< RECRC»KR»IL»IV*KK.inpX»ITIP)*KCHG*NDV 

i 

62 


1 ♦ RECPC<KR*IL*|V»KK»tnPX»2)*NtiVI>#l?. 

i 

65 

2 

continue 


64 

c 


i 

65 

c 

calculate linf costs 

E' 

66 

c 


1 

67 


LIN= IFLAGtKR»IL) 0 LINEAR IF 1 AMO NONLINEAR 0H T PRwTSE 


68 

c 

iJ 

69 

c 

annual line installation cost 


70 

c 


jfi 

71 


AN=1. 


72 


LnK CLN 1 1 L ► l > s ANSTLN t * R * I L » KK * TPPX » 2 > * AN*mP V 

'{ 

75 


IF (LIN.NE.l) GO TO 41 

!'• 

74 

c 


r 

75 

c 

LINEAR LINE RECURRING COST FUNCTION 

& 

76 

c 


f 

77 


BN=DST/RECRLN <KR * IL #KK * IDPV * I » 


78 


LNKCLN < IL » 2 > s RECRLN ( KR . IL » KF » I DPX * P > *PN*NPV* 1 2 » 

£ 

79 


GO TO 32 


80 

41 

continue 


81 

c 


i- 

88 

c 

nonlinear line recurptng function 


83 

c 



84 


DO 10 NON=l»e 


05 


NON2-2*NON 


06 


N0Nl=N0N2-l 


87 


COST=RECPLN (K R * IL f KK * IDP* »N0 n2) 


68 


OTsRFCRLN <KP * IL » KK . T DPX » NONl ) 


89 


IF (OST.GT.OT) GO TO 51 


90 


LNKCLN < I L » 2 ) = COST*PST *NP V* 1 2+LNKCL* ( I L » 2 > 


91 


GO TO 3? 


92 

51 

CONTINUE 


93 


LNKCLN (IL.2)= COST*DT*Mnv*l2+LN‘ r CLN ( Tl. »2> 

; 

94 


OSTSOST-PT 


95 

10 

CONTINUE 


96 

32 

continue 


97 

1 

continue 


98 


kchg=i 


99 


KAOD-l 


100 


return 


101 


END 


PPRT STAC0M.«HOFUN/0777 
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<tl92R*STAC0M(il ,RH0EUN/ft?77 


SlJRROUT inf RHOFUN < T 1 1 T2 * L TNFOU » l.ML«T# PHOL I N * RHO ) 

A******************* 


calculate line utilisation 

Tl= LINT TO SWITCHEP TRAFFIC 
T2 s SWITCHER TO LINF TRAFFIC 
LNLMT= HIGHEST LINF TYPE 
lineou= line configuration 

******************** 

PARAMETER NP3=4 

COMMON/LINCHR/ LINWIXINPS) »LINCAP(f’P3) »UTTLT7tNP3l 

* /CONST/ Nl.N2»N3.N4>N7»NCITr 

* /SUW/ASI.IM(4)*RSUM 

• /XMT/ TTMXMT(7*NP3>»WAIT(6I 

♦ /MSLA/ AMSL<7> 

OIMEMSTON LInEQU<1)»RHOLIN(1) 

RHOro. 

CAP"0» 

DO 8 N=I»N3 

CAPsCAP+LINEOtMN) *LINCAP<N> 

CONTINUE 

CN=LINCAP(LNLNT>/CAP I3N0RMALI7ATION F ACTOR 
XSAC1=CN*T?*ASUM<3)/(RSUM*AmsL(S)*p.) DOUTPUT WITH PRTO | 
XSAC2=0. 

IFIAMSLI6) .EG. 0.) GOTO 1*0! 

XSAC2=CN*T2*ASUM<4)/(P5UM*AMSL<6>*A. J ^OUTPUT WITH »RTO 9 
20) CONTINUE 

XSAC3=CN*Tl/(AMSL(4)*R.> 13 INPUT TR r FK IN TRANS 
RMOLIN< 1 >=XSAC1*TIMXMT<5»LNLMT) 

RHOL IN < 2 ) =XSAC2*T I MXMT ( 6 « LNLMT ) 

RHOL IN < 3 > SXSAC 3*TIMXMT 1 4 * LNLMT ) 

RHOsPHOLINd) +RHOL I N < 2 > +RHOL I N { 3 > 
rfturn 

END 


GPRT STACOM.LlNNUM/0777 
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$192B*STAC0M(1) 

.LINNUM/0T77 

1 


SUBROUTINE LtNNUMlTl «T2»LINEQtl,LNL M T« jrLAGrRHn) 

2 

C 


3 

C 


4 

c find line configuration based on the given traffic and 

5 

c applicable line type 

6 

c 

JFUA6- 1 FOR MULTIDROP LtNE C*5F 

7 

c 

Tls LINE TO SWITCHER TRAFFIC 

0 

c 

T?= SWITCHER TO LINE TRAFFIC 

9 

c 


10 

c 


11 


. PARAMETER NP3=4 

12 


COMMON/LINCHR/ LlNMIXtNP3> .LINCAPfNPS) .UTjLTZtNPS) 

13 


* /CONST/ N|»N2»N3»N«»N7»NCITV 

19 


* /MSLA/ AMSU7) 

IS 


integer trap 

16 


DIMENSION LlNEQU<i)'RH0LTN<3) 

17 


TRAFST1+T2 

IB 


DO 1 1=1 »N3 

19 


LTNEOU (J)=0 

20 

1 

continue 

21 


LnLMT=Q 

22 


call REFER 

23 


lnlmtu-lnlmt 

24 

c 


25 

C SFT up INITIAL LIME CONFIGURATION 

26 

c 


27 


IFtJFLAG .EG. 1) GOTO 10 

26 

3 

CONTINUE 

29 


LI NEOU < LNLMT ) =L I NFOU U.NLMT ) + 1 

30 


LC AP=L INC AP < LNLMT » *UT T L I z ( LNL«T ) 

31 


IF1TRAF.LT.LCAP) 60T0 7 

32 


TRAFrTRAF-LCAP 

33 


call refer 

34 


GOTO 3 

35 

10 

CONTINUE 

36 


LINEGlJtLNL«T)=TRAF/(LlNCAP(LNLMT)*UTTLT7() Nl.MT) )+t 

37 

7 

CONTINUE 

36 

TO 

continue 

39 


CALL RHOFUNtTI »T2»LINEGU*LMLMTU*RH0LIN»PH0> 

40 


iFiRHO .LT* UTIL17CLNI MT)) GOTO 15» 

41 


lFiLNLMTU.ME.N3) GOTO 72 

42 


IFiJFLAG.NE.l) GOTO 73 

43 


LINEGU«N3>n.lNEQU<N3>+l 9 NEFOFD TO nr poOTFTFO 

44 


GOTO 70 

45 

73 

continue 

46 


00 2 N-i »N3 

47 


TFiLTNEOU(N) .NE. 0) GOTO 20 

46 

2 

CONTINUE 

49 

20 

continue 

50 


NL=N 

51 


IFtNL.EG.N3) GOTO 74 

52 


LTNEQU(NL)s0 

53 

22 

CONTINUE 

54 


NL=NL+1 

55 


IFILINMIXINL) .EG.O) GOTO 2? 

56 


L I N£qU i NL ) =L I NE GU ( ML ) ♦ 1 
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57 


GOTO 70 

56 

74 

CONTINUE 

59 


LlNEQUU) = t 

60 


GOTO 70 

61 

72 

CONTINUE 

62 


LINEQU<LNLMTU>=0 

63 


LNLMTU=LNLMTU* I 

64 


IFIUNMIX(LNLMTU).FO.O) GOTO 7? 

65 


L I NEOU ( LNL MTU ) = I 

66 


GOTO 70 

67 

150 

CONTINI If 

66 


lnlmt=lnlmtu 

69 


Return 

70 


SUBROUTINE refer 

71 

C 


72 

C FIND the UPPER LIMIT «F LINF TYPE ALLOVFO 

73 

c 


74 


do 14 NN=1.N3 

75 


LTR4F=TRAF/UT ILI7 (NN) +0 .S 

76 


IF(LINPIX(NN> .FO.O) GOTO 14 

77 


LNLMTsNN 

78 


IF(LTNCAP<nM> .GT. 1 TRAP) GOTO IS 

79 

14 

CONTINUE 

80 

15 

CONTINUE 

81 


Return 

82 


END 


OPRT STACOM*PACf/0777 
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5192R*STAC0M< 1 ) .PACK/ 0777 

1 compiler ifld=abs> 

2 SUBROUTINE PACK(ttK»Lf IA) 

3 C *♦***********♦+***** 

4 C 

5 c rftrifve/storf data f»om/tnto array I a 

6 C L=1 FOP STORING AND L=2 FOR RFTrievAL 

7 C Hr DISTANCF DATA CONCFRnEO 

B C 

9 C ****•***♦*♦♦♦*♦****« 

10 DIMENSION IA(1> 

11 lQ=<I-l)/4 OTHE WORD LOCATION 

12 IR=I-I0*4 OTHE QUARTER CONCERNED 

13 10=10+1 

14 IS=tIR-l>* a 

15 IF(L.EO.l) GOTO 10 

16 C 

17 C RETRIFVE IT (9 RITS1 BEGINNING AT IS-TH BIT OF THE IO-TH WORn 

ia c 

19 K=FLDtl5*4.IAUon 

20 RETURN 

21 C 

22 C STORE !T<9 BITS1 BEGINNING AT IS-TH BI T OF THf IO-TH WORD 

23 C 

24 10 CONTINUE 

25 FLD(IS»9tIA(I0n=K 

26 RETURN 

27 END 

OPRT STAC0M.0IST/0777 



/ 

i 

i 

f 
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51928*STACOW*01 *LINK/0777 


1 

2 

3 

4 

5 

6 
7 

e 

9 


FUNCTION UNKCJfK) 


FIND the RELATIVE LOCATION FOR (J tv} COMBINATION 
which IS then used fop FINDING DISTANCE RFTWFrN SYSTEM 
TERMINATIONS J AND K 


PAR AMETER NP t s 1 30 i NPC =360 


10 


PARAmF.TF.R NP6- ( HPC*NPC/2-NPC+n /4*1 

11 


PAPAMETER NP7=4#NP3=4 

12 


COMMON /CONST/ Nl»N2*N3*N4*F7»NCITT 

13 


1 /REP/IREF(NPC> »TRAF0<NP1 »?»NP7> f riSTrCF< N pM 

14 


INTEGER ostnce 

16 


LINKsO 

16 


IFtJ.GT,NCm.OR.K,GT.NClTV.OR.K.F».J» PETUPN 

17 


JJ=J 

16 


KK=K 

19 


if<j.lt,k» goto l 

20 


JJ S K 

21 


KKSJ 

22 

1 

CONTINUE 

23 


LJNKsf JJ-1 1*NCITY ♦ K« - IREF(JJ) 

24 


return 

25 


ENO 


fJRRT L*RtCOVR/0777 
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5102R*STACOM<0> .REC0VR/0777 


1 


FUNCTION RECOVR(I) 

2 

C 

******************** 

3 

C 


4 

c RETRIEVE overflow oistancf data from ivm> 

5 

c 


6 

c 

******************** 

7 


PARAMETER NPC*360tNPO=iO*Nl>e 

8 


COMMON /OVER/ IVRn<NPO*R)*IOVFRl 

9 


00 10 M=1*10VFR1 

10 


IF<I .EQ. IVRD<N»1H ROTO ?P 

11 

10 

CONTINUE 

12 


WRITE«6#99> 1 

13 

99 

FORMAT < IX# ♦ NO OVFRFLOW DATA HAS BEEN FOUND ’ • 

14 


* ’FOR LOCAL INDEX' »2I6> 

15 


STOP 

16 

20 

continue 

17 


REC0VR=IVPD(N»2» 

18 


return 

19 


END 


OPRT L.PLOTPT/0777 
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5l92e*5TACOM<0) .PLOTPT/O t 77 


1 

2 

3 

4 


SUBROUTINE PL0TPT(LlfL3> 

♦♦♦AM*******#** 1 **** 

SUBROUTINE FOR MOVING CALCOMP PEN WITH OR WITHOUT PEN DOWN 


s 

C 

1.3=1 FOR MOVING WITH PEN DOrfN 

6 

C 

=2 FOR MOVING WITH PEN UP 

7 

c 

=3 FOR CLOSING THE PLOTTING 

a 

c 


9 

c 

**«•«*♦****••**#**** 

10 


PARAMETER NPCS360 

11 


COMMON/VH/ 1 VERT I NPC ) * IH0R7*' ( NPC > 

12 


dimension IBUF<1000) 

13 


data ip/0/ OFLAG FOR PLOTS CALL 

19 


OATA X/1.2S66/ 

15 


IF(IP .NE. 0) GOTO SO 

16 


CALL PLOTS 

17 

60 

continue 

ie 


IF<L3 .EO. 3) GOTO 1^0 OPLOTTINI 

19 


AV=IVEPT(L1) 

20 


AH=IH0RZN(L1) 

21 


BV=AV*COS ( X ) + AH*SIN < X ) 

22 


BH=AV*SIN(X)-AH*C0S<X1 

23 


BH=l8300.-BH»/3fli. 

24 


BV=IBV-SS00 ) /301 • 

25 


IF It’ .EO. 2) GOTO SO 

26 


CALL SYMB0L(BH»BV.0,n?5.4.n..-8> 

27 

60 

continue 

26 


CALL PLOTIBH.BV.3) open is up 

29 


IP=1 0 PLOTS CALL IS NOT NEEDEO 

30 


RETURN 

31 

100 

continue 

32 


CALL PL0T<10..0..«99> 

33 


return 

34 


END 


IS TO re Cl OSE" 


OPEN IS DOWN 


I3PRT L.RSPNSE/0777 
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51926*STAC0M<0> .PSPNSE/0777 


1 

2 

3 

4 

5 

6 
7 
6 
9 

to 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 


SUBROUTINE RSPNSE(Tl*T2#LINTYPfM*ffK> 
*+*♦*«**+«#**+*•**** 

CALCULATE MEAN RESPONSF TIME FOP ThF PPOPPSFD MULTIDROP LTNP 
WAIT(6)=ITFMIZFD DELAYS DUE TO 


10 


it 


i=wait for poll imp 
4=CPU turnaround 


2=WATT POP I/O 3*IMPUT *MT TlMF 

S-OUTPUT OUEI'P WATT 6=0UTPUT Y«T tIMF 


PARAMETER NP3=4 
C0 w M0N/RESP/ RH0L1N<4HRSPT|M 

1 /XMT/ TIMXMT(7*NP3>» WATTtG* 

2 /BOUND/ NTERMS*TIMPEOf^PROC#wp L OT 

3 /C0NST/N1 |N2 »N3tN4*N7tNr JTY 
DIMENSION LDUMMY<NP3) 

00 10 N=1#N3 
LDUMMY<N)=0 

continue 

ldummyclintyp)=i 

IOKSO 

C ALL RHOFUN ( T 1 » T2 * LHUMMY p L T NT YP » Rt lOL T H p PMO ) 

RH0LIN(4)=1.-RH0 

IF(RH0LIN(4) *LE. 0.) RETURN 

W A I T ( 1 > r t T IMXMT U # L INT Yp ) +T IMXMT < 2 • L I UT YP > ) * C M- 1 ) /2 
WAlT(2> = (i.-RH0LlMC4>)»TIMXMT(7#LTMTYP)/efl-iRH0LINn>- 
l RH0LIN(2))#RH0LIN<4)) 

WAIT(3>STIMXMT(3»LINTYP> 

WAlT(5)i(l.-RH0LlNt4n*TIMYMTC7fLTMTYP)/(i-RH0l iNflll 
WAlT<6)=tlMXMT(SiLINTYP) 

RSPTIM=0* 

DO 11 J=lf6 

RSPTIM=WAIT(J>4rspttM 

continue 

iFtRSPTlM .GT* TIMREOJ RETURN 

IOK-1 ORESPONSF TIME CRITEPtOM IS SATISFIED 

RETURN 

END 
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AT&T 

@RUN, etc. 

BPS 

CalCorap 
Central Link 

Centroid 

Communication Network 
Communication Protocol 

CPU 

D«t,a Base 

D Bank 

Drop 

EXEC-8 
FORTRAN 
FORTRAN V 

I Bank 

ID 

Line Utilization 


APPENDIX B 
GLOSSARY 


American Telephone and Telegraph Company 

Control statements under EXEC 8 system (of 
the UNIVAC computer system) 

Bits per second 

CALifornia COMputer Products 

The direct link between a computer and a 
remote terminal 

The geographical center of a set of system 
terminations 

A network with several terminals connected by 
a set of communication channels 

The system used for performing interfacing 
(hand-shaking) between a computer and a 
remote terminal 

Central Processing Unit 

A collection of cross-referenced set of files 
which allows systematic data filing and 
retrieval by a digital computer 

Storage area for data under EXEC-8 system of 
the UNIVAC Computer System. 

A chargeable item associated with each 
terminal on a multidrop line 

UNIVAC 1100 series executive system 

FORmula TRANslator 

A FORTRAN type of high level language which 
is only applicable in UNIVAC computers 

Storage area for program instructions under 
EXEC 8 system of the UNIVAC Computer System 

IDentification 

The ratio of traffic on a line to the line 
capacity 


B-1 


MPL 

Multidrop Line 

Multidrop Network 

PUNCHY, etc. 

Regional Network 

Regional Switching Center 
(RSC) 

STACOM 

Star Network 
SUP-Time 

System Termination 

TELPAK 

Terminal 

Terminal Response Time 
Tree 
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Multischedule Private Line, one of the 
interstate tariffs used by AT&T 

A communication line which has more than one 
terminal and is connected to a data 
processing system 

A communication network where one or more 
lines are multidrop lines 

System designated file name for punch card 
output, etc. 

A network which connects all terminals in a 
given region 

A regional data processing center which 
is used to provide the message switching 
capability for all terminals in the region 

STAte Criminal Justice COMmunication Project 

A communication network where each system 
termination is directly connected to the 
central data processing system 


A run time estimate by the EXEC-8 accounting 
subsystem which accounts for the amount of 
time spent by a run on usage of CPU, I/O 
processing and execution of system control 
statements and executive requests 

A logical node in the communication system 
under the STACOM program, whioh consists of 
one or more physical terminals 

A specific tariff for a telecommunication 
network 

A device that allows users of a data 
processing system to gain access to that 
system in a more convenient manner than the 
input/ output devices local to that system 

The duration from the time a user initiates 
a request for network service at the terminal 
to the time he receives a complete response 

A graph which has a root node without any 
predecessors and other nodes have unique 
predecessors 
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UNIVAC 

Vertical Horizontal (V-l 
Coordinates 


UNIVersal Autonatio Computer, a computer 
trade name by Sperry Rand Corporation 

A pair of numbers which are designated by 
AT&T for olties and used for the purpose of 
calculating distance between any two cities 


LEAA-JPL-Coml., L. A., Calif. 


B-3 


